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FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
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FFFFFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE CCCCCCCC + PPPPPPPP RRRRRRRR 000000 
FF 00 OO RR RR RR RR EE cc PP PP RR RR 00 00 
FF 00 00 RR RR RR RR EE cc PP PP RR RR 00 00 

FF 00 0O RR RR RR RR EE cc PP PP RR RR 00 00 

FF 00 OO RR RR RR RR EE cc PP PP RR RR OO 00 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE cc PPPPPPPP RRRRRRRR 00 00 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE cc PPPPPPPP RRRRRRRR 00 00 

FF 00 00 RR RR RR RR EE cc PP RR RR 00 00 
FF 00 OO RR RR RR_ RR EE cc PP RR RR 00 00 
FF 00 0O RR RR RR RR EE cc PP RR RR 00 00 cece 
FF 00 00 RR RR RR RR EE cc PP RR RR 00 00 cece 
FF 000000 RR RR RR RR EEEEEEEEEE CCCCCCCC ~PP RR RR 000000 cece 

FF 000000 RR RR RR RR EEEEEEEEEE cccccccc =P RR RR 000000 eeee 
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FACILITY: FORTRAN Support Library - not user callable 


ABSTRACT: 


| 
This module sso loments a record processing level of 
abstraction which is t rd level and is called only from 
the user data lereatear level (2nd level) when the user | 
portion of a record buffer is full (WRITE) or empty 
(READ). This module adds any per record formatting (as 
distinguished from per 1/0 statement or per 1/0 List element 

formatting) and then calls RMS (S$PUT or SGET). RMS errors 
are converted to FORTRAN errors and are signaled. 


ENVIRONMENT: User access mode; AST level or not. 
AUTHOR: Thomas N. Hastings; CREATION DATE: 16-Mar-77 
MODIFIED BY: 

Previous edit history deleted. SBL 18-July-1980 
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0 1-001 = Update version number and seoytiant neetes, JBS 16-NOV-78 

0 1-08 - Change REQUIRE {ite names from F - to OTS... JBS 06- oY. 

0 1-003 = Change ISBSA_BUF_PTR, BUF_BEG, BUF “Ei. “By HIGH 9 LUB. DGP 08-Jan-79 
0 1~Obe - Always set RABS $w- ao before SéuT R 2204% SBL al § 

0 1-005 = For sequential réad, set ac cess mo o SEQ. For sequenti at 

0 write, set to KEY if ACCESS= tevep* So otherwise. SBL 1 -Apr-79 

0 1-006 - Change dispatch table so that direct ‘1 level is the same as 

0 "O"' Tevel. This is because we now allow more than one record 
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on direct 1/0. SBL 25-Apr-1979 
Clear RABSV_UIF if se uential or keyed ig BL b eatays -1979 
Add REC level definitions for keyed read. May-1 
Change FOR K ~TARRE CL OC to FORSK_ PERECLOC. seb B-May-1979 
Add REWRITE.” SBL 14-May-1979 
Clear LUBSV_FIND_LAST on direct access. SBL 15-May-1979 
Add internal filé entry points 
Remove initial space from REC ‘ist transferred Ly UDF leve 
Make List directed tecore Length h 60 apexesd of SBL yg =Jjun=1979 
Check for ISBSV_LAST_REC 2. FORSSREC Rg) to catch reading 
too much data. “SPR 22-25 L 17*Au 
Change FORSK_MORONEREC to FORK” eT OOMANR C. SBL gi=septs 43 195° 
‘ey er FORSK-ATTREANON to FORSK-ATTACCNON. JBS 

UBSW_R paneia. for List directed cutesy ea 7970 Ba ct=1979 
Give FORS$_SPERECLOC on read errors. 
Use LUBSW-R_MARGIN as List directed output madly 1 SBL 1-Nov-1979 
VAX/VMS V2.0 
Add support for NAMELIST. SBL by tat fa 
If fixed Length ce records, blank fill List directed output records. 
SBL 27-Augus 
Create separate reines FORSSREC_WSNO and FORSSREC_WSN1 for 
NAMELIST. They require unique code not found in WSFx. SBL 4-September-1980 
Only check for ENDFILE record * 25 geen ss or formatted sequential 
organization/access files. 
Don't write leading space in BL agence PUSNO. The UDF routine will do it. SBL 21-Oct-1980 
Define FORSSREC “NSt9 8 as FORSSREC_WSL1 rather than FORSSREC WSF. This 
is so that edit 21 works for éend-of-statement. SBL 5-Nov 0 
Make sure ety record gets counted before signal ing PORSK.. pENODURREA 
in FORSS$SREC_RSFO, so backspace will work correctly. JAW 24-Feb-1981 
gin tts ufbut fered transfers for dla tT gg 1/0 Lists: 
Le i gt! SNGL_ELEM is set, do not change —.2 an 

RS7 ShTch have been set at UDF [eve 

Cont \nuat fon of 1-027. Support A TE oA 
Check for fixed-length pa ay be in FORSSREC_WD9 before padding 
them. Also, be sure first byte. or first Ewo bytes, of record 
read in FOR$SREC -RSFO and FO Spree _RSUO exist before testing 
their contents. “JAW 06-Jun-19 
VAX/VMS V3.0 
Add entries for List-directed internal files. Use prologue file. 
SBL 21-Apr-1983 . 
Add extra space in FORSSREC_WSNO if statement type is a READ. This 
makes the NAMELIST '?' feature display with a leading blank. 
SBL 26-May-198 
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104 ; 

105 ! PROLOGUE FILE: 

198 : 

10 

10 REQUIRE ‘RTLIN:FORPROLOG'; ! FORTRAN definitions 


TABLE OF CONTENTS: 
write sequential formatted: 
FORWARD ROUTINE 
FORSSREC_WSFO : JSB_REC 
FORSSREC_WSF1 : JSB_REC 
GLOBAL i 
FORSSREC_WSF9 = FORSSREC_WSF1; 
' read sequential formatted: 


FORWARD ROUTINE 
FORSSREC_RSFO : JSB_RECO NOVALUE; 


GLOBAL BIND 

ROUTINE 

FORSSREC_RSF1 = FORSSREC_RSFO; 
FORWARD ROUTINE 


initialize output buffer 
write ail but last record 
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0 NOVALUE, 
1 NOVALUE; 


Write next = write last 


read first record 


Read first = read next 
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FORSSREC_RSF9 : JSB_REC9 NOVALUE, ' no-op 

! read eequent ies unformatted record 

FORSSREC_RSUO : JSB_RECO NOVALUE, ' read first record 

FORSSREC_RSU1 : JSB_REC1 NOVALUE, ' read all subsequent records 

FORSSREC_RSU9 : JSB_REC9 NOVALUE, ! terminate read 

! write sequential unformatted record: 

FORSSREC-WSU1 : JSBZRECT NOVALUE, i urite alt but Last record 

: ‘ ' write a ut la C 

FORSSREC_WSU9 : JSB_REC9 NOVALUE ! write last record 

‘write direct (formatted and unformatted): ; 

FORSSREC_WDO : JSB_RECO NOVALUE, ! initialize output buffer 

FORSSREC_WD1 : JSB_REC1 NOVALUE, ! write next record 

FORSSREC_WD9 : JSB_REC9 NOVALUE ! write last record | 

' read direct (formatted and unformatted): 

FORSSREC_RDO : JSB_RECO NOVALUE; ! read first record 
GLOBAL BIND 

ROUTINE 3 

FORSSREC_RD1 = FORSSREC_RDO ' mext record = first record 

= : ! no-op 
FORSSREC-RD9 = FORSSREC_RSF9 i 


! write sequential (ist-directed 
FORWARD ROUTINE 
FORSSREC_WSLO : JSB_RECO NOVALUE, 
FORS$REC“WSL1 : JSB-REC1 NOVALUE; 


GLOBAL BIND 
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initialize output buffer 
write all but last record 
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1-031 14-Sep-1984 12:32:59 FORRTL.SRCJFORRECPRO.B52; 1 (2) 
; (161 8 5 1 ROUTINE 
; 166 ® } FORSSREC_WSL9O = FORSSREC_WSF1, ! write last = write last formatted sequential 
; 16 0227 1 ! read sequential List-directed 
: 164 0228 1 FORSSREC_RSLO = FORSSREC_RSFO, ! read first = read first sequential formatted 
> 165 0229 1 FORSSREC_RSL1 = FORSSREC_RSF1, ' read next = read next sequential formatted 
; 166 0230 1 FORSSREC_RSLO = FORSSREC_RSF9 ! no-op 
; 167 0231 1 1 ocgad.memory formatted TDECODE) 
; 168 0 : FORSSREC_RMFO = FORSSREC_RSF9; ! no-op 
3; 170 0 3 1 FORWARD ROUTINE 
3 17) 8 ? : FORSSREC_RMF1 : JSB_REC1 NOVALUE; ! illegal: FOR$S_TOOMANREC 
; 178 0 37 1 GLOBAL BIND 
> 174 8s 8 1 ROUTINE 
: 175 0239 1 FORSSREC_RMF9 = FORSSREC_RSF9 ! no-op 
: 176 0240 1 ! write memory formatted (ENCODE) 
: 177 0241 1 FORSSREC_WMFO = FORSSREC_RSF9, ' no=op | 
; 178 Og4¢ FORSSREC_WMF1 = FORSSREC_RMF1: i illegal: FORS_TOOMANREC , 
; 180 0244 1 FORWARD ROUTINE 
: «(181 0245 1 FORSSREC_WMF9 : JSB_REC9 NOVALUE, ' terminate write (blank pad) 
>; 182 0246 1 FORSSREC_WIFO : JSB_RECO NOVALUE, ! Internal file write 
3 185 0247 1 FORSSREC_WIF1 : JSB_REC1 NOVALUE; : 
> «(184 0248 1 
3 6395 0249 1 GLOBAL BIND 
; 6186 0250 1 ROUTINE 7 
; «187 0251 1 FORSSREC_WIF9 = FORSSREC_WMF9, ! Terminate internal write 
: 188 OS 26 1 FORSSREC_RIFO = FORSSREC_WIFO, ! Internal file read 
; «189 O62 1 FORSSREC_RIF1 = FORSSREC_WIF1, : 
: 190 0254 FORSSREC-RIF9 = FORSSREC_RSF9; i No-op 
: 136 b$38 1 FORWARD ROUTINE 
3; W 0257 1 FORSSREC_RKFO : JSB_RECO NOVALUE; ! keyed read 
3 «194 0258 1 
; «195 0259 1 GLOBAL BIND 
: 196 0260 1 ROUTINE . 
: 197 0261 1 FORSSREC_RKF1 = FORSSREC_RSFO, ! 2nd and after Like sequential 
: 198 p¢0¢ 1 FORSSREC_RKF9 = FORSSREC_RSF9, ! No-op 
; 199 0265 1 FORSSREC_RKUO = FORSSREC_RKFO, ! Keyed unformatted read 
; 200 0264 1 FORSSREC_RKU1 = FORSSREC_RSU1, ' Will be an error 
; 201 0265 1 FORSSREC_RKU9 = FORSSREC_RSF9, i No-op ' 
; 202 0266 1 FORSSREC_WXFO = FORSSREC_WSFO, ! Indexed rewrite 
; 203 0267 FORSSREC_WXF1 = FORSSREC_RMF1: i Error 
; $08 $569 1 FORWARD ROUTINE 
3 oop Osos : FORSSREC_WXF9 : JSB_REC9 NOVALUE; ! Rewrite the record 
: $08 ost ¢ 1 GLOBAL BIND 
; $92 02735 1 ROUTIN 
; 210 0274 1 FORSSREC_WXUO = FORSSREC_WSUO, ' Rewrite indexed unformatted 
} $1) 8552 1 FORSSREC_WXU1 = FORSSREC_RMF1, ' Error 
3 i 3 4 : FORSSREC_WXU9 = FORSSREC_WXF9; : 
: 214 0978 1 FORWARD ROUTINE ; 
s eS 79 «1 FORSSREC_WSNO : 150 RE CRI ELIS ! Write sequential NAMELIST 
3 sig th44 ! FORSSREC_WSN1 : JSB_REC UE; 
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EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
FORSSSIGNAL_STO : NOVALUE, 


FORSSASSOC : CALL_C€CB NOVALUE; 


: 218 83 1 GLOBAL BIND 

: 219 1 FORSSREC_RSNO = FORSSREC_RSFO, 
> 220 4 1 FORSSREC_RSN] = FORSSREC_RSF1, 
: 221 5 1 FORSSREC-WILO = FORSSREC_WIFO, 
; : g 1 FORSSREC_WIL1 = FORSSREC_WIF1. 
: 0 1 FORSSREC_WIL9 = FORSSREC_WMF9, 
: 226 8 1 FORSSREC_RILO = FORSSREC-RIFO, 
; 225 0289 1 FORSSREC-RIL1 = FORSSREC_RIF1, 
; $ 0 30 FORSSREC-RILO = FORSSREC_RSF9: 
; 6 0 3% 1 FORWARD ROUTINE 

: 229 0 93 1 FILL_BUF : CALL_CCB NOVALUE 

: 230 9% 1 PUT_ERROR : CALC_CCB NOVALUE, 
: 231 0295 1 GETERROR : CALL~CCB NOVALUE: 
So eae 

: 34 0 38 i MACROS: 

: $3 geet i _ 

: 3 030¢ ' EQUATED SYMBOLS: 

: 2 Bape | sa 

; 4 0306 | OWN STORAGE : 

> 26 0308 1! NONE 

> 26 0309 1! 

: 246 0310 1! 

; 24 0311 #71! 

: 24 O38 1 

; 24 031 1 

3 0314 1 

3 0315 1 

; 0316 1 

3 0317 1 
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Read sequential NAMELIST 
Write internal List-directed 


Read internal list-directed 


no-op 
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CPRO.B52;1 (2) 


fill rene inéer of buffer with arg 


error in $PU 
error in $GET 


Convert FORTRAN err # to VAX 
err # and call LIBSSTOP. 
store rec# in ass. var. 
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14-Sep-19 FORRTL.SRCJFORRECPRO.B32;1 (3) ” 
3 5 8 1 GLOBAL ROUTINE FORSSREC_WSFO ! Write sequential formatted 
: ° 3 : : JSB_RECO NOVALUE = 
: 258 1 1 te 
3 24 ¢ } FUNCTIONAL DESCRIPTION: 
; 261 > 37 Initialize call for write sequential formatted. FORSSREC_WSFO 
; > 2. initializes the output buffer and returns start and end+! of user 
; o § : part of record buffer to be filled by caller. 
: 65 : | CALLING SEQUENCE: 
: 26 01: JSB FORSSREC_WSFO () 
: 268 331 1! 
; 69 83 ¢ 1 ! FORMAL PARAMETERS: 
; 270 8 1! NONE 
3 71 ; 4 1! 
3 7 0 $2 1 ! IMPLICIT INPUTS: | 
. on 03 § 1! 
3; 274 0337 1! ccB Pointer to current logical unit 
3; 275 0338 1! LUB$W_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. 
; 76 te : LUBSA_RBUF _ADR Address of record buffer from OPEN 
: 278 0341 1! IMPLICIT OUTPUTS: 
: 79 O38 1! 
; 280 03435 1! LUBSA_BUF _PTR peiges to first char in user part of record 
; $B) 0344 1! uffer 
; 282 0345 1! LUBSA_BUF _END points to last char+1 in user part 
; 283 0346 1! of record buffer 
: 284 0347 1! 
; 285 0348 1! RABS$B_RAC Set to correct access mode. 
; $39 0349 1! RABSV_UIF Cleared if keyed access. 
: 287 0350 1! 
; 288 0351 1 ! ROUTINE VALUE: 
; 289 B26 1! 
: 290 0353 1! NONE 
3 34 0354 1! 
3 4 0355 1 ! SIDE EFFECTS: 
3 $3 0356 1! 
3 94 0357 1! NONE 
i $86 a | 
; 337 0360 BEGIN 
: 299 O36 EXTERNAL REGISTER 
3 00 036 CCB : REF SFORSCCB_DECL; 
; 301 Baee 
; 4 365 + 
: b2 Beco Return start address and end+1! address of output buffer. 
: 305 368 ; 
; 06 0388 ccB FLUBSA Bur pr) = .CCB pLUSSA Raut ARI: 
: 4 Baie CCB CLUBSA_BUF_END) = .CCB CLUBSA_RBUF_ADR] + .CCB CLUBS$W_RBUF _S1ZE); 
: 309 0372 \¢ 
: 310 7 ' If user opened with ACCESS="KEYED', then set access mode 
3 «(511 0374 ! to KEYED and clear RABSV_UIF else set access to sequential. 


; Routine Size: 33 bytes, Routine Base: _FORSCODE + 0000 


: 325 


0388 1 
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1-031 ° eR eetS AR eT Oe het Pg te we sh 
; i 75 t- 
§ 1 8 
: 314 7 IF .CCB CLUBS$V_KEYED) 
3 1? 8 THEN 
: 13 80 PEN Anse RAC] = RABSC_KEY; 
18 cB RABSV_UIF] = 0; 
: 320 5 ELSES” 
; 1 6 8 CCB CRABSB_RAC] = RABSC_SEQ; 
: zl 0 86 RETURN; 
; 4 8 END; ! END OF ROUTINE | 
«TITLE FORSSREC_PROC 4 oly processing level of abstra | 
Py on 
IDENT \1-031\ . 
.EXTRN FORSSSIGNAL_STO | 
“EXTRN FORSSASSOC ~ 
.PSECT _FORSCODE,NOWRT, SHR, PIC,2 
BO AB EC AB DO 00000 FORSSREC WSFO:: 
Mov -20(CCB), -80(CCB) 7 0369 
50 D2 AB 3C 00005 MOV WL -46(CCB), RO : 0370 
BG AB EC BB40 H 00009 MOVAB a@=20(CCBSCROJ, -76(CCB) ; 
FD AB 95 OOOOF TSTB) ss = 3 (CCB) : 0377 
09 18 00012 BGEQ 1$ ; 
1E AB 01 90 00014 MOVB #1, 30(CCB) : 0380 
04 AB 10 8A 90018 BICB2 #16, 4(CCB) > 0381 
05 0001C RSB : 0377 
1E AB 94 0001D 18: CLRB =: 30 CCB) + 0384 
05 00020 RSB : 0387 
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14-Sep-1984 12:32:59 FORRTL.SRCJFORRECPRO.B32;1 (4). 
; 7 89 1 GLOBAL ROUTINE FORSSREC_WSF1 ! Write sequential formatted . 
; 8 90 1 ! (also FORSSREC_WSF9 and FORSSREC_WSL9) : 
; 9 91 1 ! Called from FORSSREC_WSU9 ; 
; 0 3 1 : JSB_REC1 NOVALUE = : 
; 1 9 1 ° 
; ¢ 94 1 lee ; 
; 7 2 ! FUNCTIONAL DESCRIPTION: : 
3 5 6 1 1} Write one pequent tal formatted record and initialize for the next : 
3 0398 1! FORSSREC_WSFT (and FORSSREC_WSF9) writes one output buffer and then ; 
3 7 0399 1! initializes the output buffer and returns start and end+1 of user ; 
3 8 Begs 1! pect of record buffer to be filled by caller. : 
; 9 401 1! LR records are space or null padded. ‘ 
; re pats : Logical record number is incremented. : 
; i} 0404 1 ! CALLING SEQUENCE: ; 
; 3&4 0405 1! ; 
3; 344 Bene 1! JSB FORSSREC_WSF1 () : 
; 345 407 1! : 
: 346 0408 1 | FORMAL PARAMETERS: ; 
: 347 0409 1! : 
; 348 0410 1! NONE ; 
; 349 0411 1 | | ; 
; 350 Rois 1 ! IMPLICIT INPUTS: | 
: 35351 0413 1! | 
; $28 0414 1! CCB Pointer to current logical unit 
; 3 0415 1! LUBS$W_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. 
; $2¢ 0416 1! LUBSA_RBUF _ADR Address of record buffer from OPEN | 
; 355 0417 1! LUBS$A_BUF _END oints to Last char inserted into buffer 
; 356 0418 1! UDF level 1/0. 
3 aor 0419 1! ISB$V_SNGL_ELEM Flag indicating that RAB$SW_RSZ and 
3 2 Bese ' RABSL_RBF have been set up at UDF level 
; 360 Be § 1 ! IMPLICIT OUTPUTS: | 
; 361 4 1} 
; o¢ 0424 1! LUB$L_LOG_RECNO Incremented logical record number 
; 2 0425 1! LUBSA_BUF _PTR Address of first char in user part 
; 364 0426 1! of record buffer : 
; 365 0427 1! LUBSA_BUF _END Address of last+1 char in user part 
; 366 0428 1! of record buffer 
3 «63er 0429 1! 
; 368 0430 1 ! ROUTINE VALUE: 
: 3% b¢82 1 | NONE 
: 3571 §e38 1! 
3 7 et: 1 ! SIDE EFFECTS: 
3; 37 04355 1! 
3 74 04 § 1! NONE 
: 75 4 1 !e- 
: 376 438 1 
: 377 439 BEGIN 
: 3578 440 
3 79 441 EXTERNAL REGISTER 
; 380 rr CCB : REF SFORSCCB_DECL; 
; 381 44 
; 38 0444 '¢ 
3; 3e 0445 ! If this is a buffered transfer (ISBSV_SNGL_ELEM = 0), then set up 


8 
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1-031 14-Sep-1984 12:32:59 FORRTL.SRCJFORRECPRO.B52;1 (4) | 


3 et re ! RABSW_RSZ and RABSL_RBF to point to the record buffer. Otherwise : 
; bg rt ;_they Rave already béen set up at UDF level to point to an element. ; 
; 44 : 
3 $8 450 IF NOT .CCB CISBSV_SNGL_ELEM] ; 
; 9 451 THE ; 
; 390 4 ¢ BEGIN : 
: 391 4 : 
3; 2 454 ‘+ : 
; 39 455 ! If fixed Length records (FLR), pad with trailing spaces or : 
: 394 Be 28 ! nulls, depending on whether formatted or unformatted. Set : 
3 2? Bc ; recordsize to actual length of record. ‘ 
; 39 459 : 
: 398 0460 IF .CCB CLUBSV_FIXEDJ : 
; 399 0461 THEN | ; 
; 400 Bees 4 BEGIN : 
: rt Bee? : CCB CRABSW_RSZJ = .CCB CLUBSW_RBUF_SIZE]; ! Always set RSZ : 
> 40 0465 4 IF .CCB CLUBSA_BUF_PTR] LSSA .CCB CLUBSA_BUF _END] ‘ 
; 404 0466 4 THEN : 
; 405 0467 4 FILL_BUF (¢ ; 
: 406 0468 4 : 
; 407 0469 4 IF .CCB CLUBSV_UNFORMAT] THEN 0 ELSE %C* ‘) ; 
; 40 0470 4 ; 
; 409 0471 4 END : 
‘3 410 047 ; SE | ; 
> 411 047 CCB CRABSW_RSZ) = .CCB CLUBSA_BUF PTR] - .CCB CLUBSA_RBUF _ADRI; | : 
; rh 0474 3 CCB CRABSL_RBFJ = .¢CB CLUBSA_RBUF_ADR); : 
; (41 0475 2 END; ; 
3 414 0476 § : 
; «6415 0477 '¢ : 
: 416 0478 2 ! Output buffer to RMS and check for errors : 
: 417 0479 2 ! If errors, SIGNAL_STO FORS_ERRDURWRI (38="ERROR DURING WRITE") ; 
> 418 0480 2 fe | : 
; 419 0481 ; 
; $s9 aes IF NOT S$PUT (RAB = .CCB) THEN PUT_ERROR (); : 
3 63¢ 0484 '¢ : 
: 4 0485 ! increment logical record number (for backspace) after : 
: 424 0486 ' successfully writing current record number. : 
oe ; 
: tsi rts IF NOT .CCB CLUBSV_KEYED] THEN CCB CLUBSL_LOG_RECNO) = .CCB CLUBSL_LOG_RECNO) + 1; : 
; ri +4 0491 ie : 
; 430 B39 ! Return next output buffer start and end addresses | : 
> 431 49 ! If fixed length, use just record size, else buffer size. : 
$ $3 494 le ‘ 
; 43 495 ‘ 
3 434 496 CCB LUBSA_BUF_PTR] = .CCB FLUBSA_RBUF _ADR : : 
: 435 49 CCB CLUBSA_BUF_ENDJ = .CCB CLUBSA_RBUF_ADR) + .CCB CLUBSW_RBUF_SIZE); ‘ 
3 $3 498 TURN; | : 
i; 4 499 END; ! END OF ROUTINE : 


p=198¢ 12:99:89 ERORRTL CSRESFORRECPRO-B82; 1 roo IS) 


~EXTRN SYS$PUT 


| | pl ame Record processing level of abstraction 


2F 97 AB 04 €0 00000 FORSSREC_WSF1:: | 
685 #4, -105(CCB), 5$ 7 0450. 
1€ FD AB 02 €1 9905 BBC #2. -3(CCB), 3$ t 0460. 
22 AB D2 AB BO OO00A MOVW “45 (CCB), 34(CCB) + 0463. 
B46 OAB BO AB D1 : OF CMPL 8 (CCB), =76(CCB) + 0465 
19 1 00014 BGEGU 4 ; | 
04 FD AB gi E1 0 16 BBC #1, -3(CCB), 1$ + 0469. 
D4 0001B CLRL «= §P) ; 
$ My etd 1$ BU SHL #32 : 
0000v CF o} FB 09 1 2$ CALLS ty" FILL_BUF F ests 
22 AB BO AB EC AB A3 000 8 3$: SUBW3 =20(CCB), -80(CCB), 34(CCB) + 0473 
28 = AB EC AB DO 0000F 4$: MOVL O(CCB). 40(CCB) + 0474 
5B DD 00034 5$ PUSHL CCB + 0482 
weer GER BRnsE GRAS gyssnu 2 
0000v CF 00 FB 00040 CALLS #0, PUT_ERROR : 
FD AB 95 00045 6$: TSTB) 3s: = 3( CCB) + 0489 
03 19 00048 BLSS 0s 7$ : 
EO AB D6 0004A INCL  =32(CCB) : 
BO AB EC AB b0 0004D 7$: MOVL  -20(CCB), -80(CCB) + 0496 
50 D2 AB 3¢€ 00052 MOVZWL =-46(CCB) + 0497 
B4 AB EC 8840 3 00056 MOV a-20(CCBSCROJ, -76(CCB) F 
§ 0005¢ RSB + 0499 


; Routine Size: 93 bytes, Routine Base: _FORSCODE + 0021 


; 438 0500 1 


Be Be Be Oe Oe Be Oe Se Oe Se Se Se Se Ge Ge Be Se Se Se Fe Se Se Fe Se Ge Ge Se Se Se Se Ge oe HSH Se Se Se SESH Se Se Se Se SE See ee Se Fe See ee Be Se Be eeas 
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1-031 14-Sep-1984 :32:59 FORRTL.SRC FORRECPRO. if 231 (5) 
; 440 820) } GLOBAL ROUT INE FORSSREC_RSFO ! Read sequential formatted ; 
; 441 5 § 1 ! (also FORSSREC_RS ris FORSSREC_RSLO and FORSSREC RSLT) . 
> 44 828 1 : JSB SRECO NOVALOE = : 
> 44 04 1 : 
> 444 0505 1 !++ ; 
; rer Bene : FUNCTIONAL DESCRIPTION: : 
3; 447 0808 1} FORSSREC_RSFO (and FORSSREC_RSF1) reads one formatted sequential record. : 
; 448 0509 1! Increments logical record number after successful read. | : 
> 449 0510 1! Then return start and end+1 of user ‘ 
; te Bai) ! part of record to be processed as input. : 
3 126 $848 1 ! CALLING SEQUENCE: : 
; 45 0514 1! : 
> 454 0515 1! JSB FORSSREC_RSFO () : 
; 455 0516 1! : 
; 456 0517 1 ! FORMAL PARAMETERS: : 
; 457 0518 1! | : 
; 458 0519 1! NONE | : 
; 459 Base 1! ; 
: 460 0521 1 ! IMPLICIT INPUTS: : 
; 461 O26 1! . 
; 46 0525 1! CCB Pointer to current logical unit : 
; 46 0524 1! LUBSW_RBUF _SIZE Size of record buffer allocated in OPEN. ; 
; re ¢ bes? ; } LUBSA_RBUF _ADR Address of record buffer from OPEN. : 
> 466 0527 1 ! IMPLICIT OUTPUTS: : 
; 467 0528 1! ‘ 
; 468 £t94 1: LUBSL_LOG_RECNO Increment logical record number 
; 469 0530 1! of next record to be rea 
: 470 0531 1! LUBSA_BUF _PTR points to first char of user part of 
3: 471 peas 7 record buffer 
: 47 0533 1! LUBSA_BUF _END points to endé1 of user part of 
; 47 0534 1! record buffe 
3; 474 0535 1! RAB$W_RSZ set to reed pecerd Length, or ZERO 
; 475 0536 1! if error. 
: 476 0537 1! 
3: 477 0538 1! RAB$B_RAC set to sequential access mode 
: 478 0539 1! 
: 479 0540 1 ! ROUTINE VALUE: 
; 480 0541 1! 
: «481 D266 1! NONE 
: 482 0545 1! 
: 483 0544 1 ! SIDE EFFECTS: 
; 484 0545 1! : 
; 485 0546 1! Reads next record from file on this logical unit. 
; 486 0547 1! SIGNAL_STOPs FORS_ERRDURREA iE) oath te DURING READ‘) 
; 487 0548 1! SIGNAL_STOPs FORS_ENDDURREA (24="END-OF-FILE DURING READ") 
: 488 0549 1! SIGNAL-STOPs FORS_INPRECTOO if record too big 
; 489 0550 1 !-- 
: 490 Bees 1 
: 491 226 BEGIN 
3; 49 055 
3; 49 8228 EXTERNAL REGISTER 
7 494 555 CCB : REF SFORSCCB_DECL; 
3; «495 0228 
: 496 055 '¢ 
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FORSSREC_PROC Record processing level of abstraction 1e-se 1984 00:42:27 AX-11 Bliss-32 V4.0-74 P | 
1-031 . 12-8 8-138e 90:45:95 FORRTL. RCIFORRECPRO.B 2;1 _ BS 
49 228 ' Read record into buffer vs ing RMS and check for erros 
49 5 ! If end-of-file, SIGNAL_STOP FORS_ENDDURREA (24="END-OF-FILE DURING READ') 
499 560 ! If record too big for record buffer 2 Saag STOP FOR$_INPRECTOO. 
50 0369 If errors, SIGNAL_STO FORS_ERRDURREA (39="ERROR DURING READ') 
* Naaad | 
0 5 
2° : : CCB CRABSB_RAC] = RABSC_SEQ; 
50 5 § IF NOT $GET (RAB = .CCB) THEN GET_ERROR (); 
50 569 i Increment Logical record number (for backspace) 
9 258 so it is the number of the next record to be read. 
51 5 
2) 578 IF NOT .CCB CLUBSV_KEYED] THEN CCB CLUBS$L_LOG_RECNOJ = .CCB CLUB$L_LOG_RECNO) + 1; 


14 
! Check for End-of-file record in sequential organization files. 


i STORAL_STOP FORS ENDDURREA i? Sone 
x . ¥ 
IF NOT .CCB CLUBSV_NOTSEQORG) 
IF .CCB CRABSW_RSZ) EQLU 1 
IF .(.CCB CRABSL_RBFJ)<0, 8> EQLU FORSK_CONTROL_Z 
FORSSSIGNAL_STO (FORSK_ENDDURREA) ; 
14 


; Return start and end+1 address of record just read 


ccB tren ety = .CCB CRABSL_RBF J 


Fd; 
CCB LLYBSA_BUF_END .CCB CRABSL_RBFJ + .CCB CRABS$W_RSZ]; 
RETURN; 


END; ! End of FORSSREC_RSFO and FORSSREC_RSF1 


AEWV—OOBNOUE WN OOD NAME WW HODR IF AR OOS on 
A PIPIPIPIPINININIPIPIPININIPOPNIPINOPIPUPUPINOPNIPONOPONOPONOPONoPonoponoeny 


Pee Se Se Se Se SH Se Oe OF Oe Be Oe Se Se Se Se Oe Os Oe SH S8 we OHSS se OH SH OHS SHOE SESH Ss ee ee Sees 


OGOOCCSOSSCOOCOOOCSCOCOOOOOCOOOCOOOOCOOOOOO 


POPU DUDUPVSUDUSV SSSA SIT UTUITIUT UT 
WWAANIAIRIPIPONINPONPEPONIPIDY 2 2 OS 


-EXTRN SYS$GET 


1E AB 94 00000 FORSSREC_RSFO:: 

CLRB 30 CCB) : 0564 

5B DD 00003 PUSHL : 0566 

000000006 00 01 FB 0000 CALLS #1, SYSSGET : 

05 50 €8 0000C BLBS ‘ ; 
0000v CF 00 EB OOOF CALLS #9 GET_ERROR : | 
FD AB 9 6 14 1$: TSTB = = 3¢ CCB) > 0573 | 
03 19 00017 BLSS ; 
£0 A D6 0019 INCL 532 (CCB) : 
15 Al AB 03 £0 O001C 28 BBS #3, -95(CCB), 3$ : 0581 | 
01 22 «AB 8 0021 CMPW 4écce), #1 ; 0585 | 
OF é 00 5 BNEQ : 
1A 28 «BB 91 00027 CMPB = @40( CCB), #26 ; 0585 | 
i 
} 


FORSSREC PROC Record processing level of abstraction 1b-5e ~3e= 138% 99: 4: 9 Heronte se sg 36 gate ri ‘8Se; 4 Page 33 | 


09 12 00 B BNEQ 3$ : 
DD 6 D PUSHL #24 + 0587) 
000000006 00 01 FB O00eF CALLS #1, FORSS$SIGNAL_STO : | 
BO AB 28 «AB pO 00036 3$: MOVL 40(CCB), -80(CCB) + 0593 
22 AB 3C 00038 MOVZWL 34(CCB), RO + 0594 | 
B4 AB 28 BB40 9E 0003F MOVAB a40(CCB)CROJ, -76(CCB) : 
05 00045 RSB : 0596) 


; Routine Size: 70 bytes, Routine Base: _FORSCODE + OO7E 


; 536 


0597 


1 
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ORS “ , 8 la-Sep- 7 90:45:96 FORRTL.SRC FORRECPRO 68251 ° (6) 
3 3 238 1 GLOBAL ROUTINE FORSSREC_RSF9 ! Read sequential formatted 
$ 1 ! (also Ral? RMFO, RMF9, WMFO, RDO) 
; 40 6 9 : JSB_REC9 NOVALUE = 
3 28 o0¢ 1 4+ 
3 4 6 1 ! FUNCTIONAL DESCRIPTION: 
; 44 6046 1! 
> 345 ait 1} FORSSREC_RSF9 is a no-op! 
: 4 6 $ 1! 
s 54 rt 1 ' CALLING SEQUENCE: 
: 48 608 1! 
3 49 +44 1! JSB FORSSREC_RSF9 () 
3 350 610 1! 
3 51 0611 1 !' FORMAL PARAMETERS: 
: 2g Bei¢ 1! 
; 2 061 i. NONE 
: 554 0614 1! 
3 22? 0615 1 ! IMPLICIT INPUTS: | 
s 556 p68 73 
: 557 0617 1: NONE | 
: 558 0618 1! 
s $59 0619 1 ! IMPLICIT OUTPUTS: 
: 560 0620 1! 
; 20) 0621 1 ! ROUTINE VALUE: 
3 ¢ 06 ¢ : 3 
3; 36 06 1! NONE 
: 564 0624 1! 
; 565 0625 1 ! SIDE EFFECTS: 
; 566 0626 1! 
: 567 0627 1 !-- 
; 568 0628 1 
3; 569 0629 1 RETURN; 


05 00000 FORSSREC_RSF9:: 
RsB 


| 
; Routine Size: 1 bytes, Routine Base: _FORSCODE + 00C4 | 


; 570 0630 1 
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1-031 ° 1e-8ep-19 4 99:95:95 FORRTL.SRC FORRECPRO. B92: 1 ° (7) | 
3 ue 631 1 GLOBAL ROUTINE FORSSREC_WSUO ! Write sequential unformatted ; 
; 57 6 § 1 : JSB_RECO NOVALUE = ; 
: 74 6 1 5 
s $75 634 1 !44 : 
3 6 635 1 ! FUNCTIONAL DESCRIPTION: 3 
s of 86 ° 1} ; 
; tre 6 1! Initialize call for write sequential unformatted. FORSSREC_WSU0 : 
: 579 0638 1! initializes the output buffer and returns start and end+1 of user $ 
3 280 0639 1! part of record buffer to be filled by caller. 3 
; 2B) Bere : andles segmented and unsegmented records. ‘ 
: Rg O64g 1] | CALLING SEQUENCE: : 
; 584 645 1! $ 
; 585 0644 1! JSB FORSSREC_WSU0 () | 3 
; 586 0645 1! 3 
3 jer 0646 1 ! FORMAL PARAMETERS: 3 
; 588 0647 1! 8 
; 589 0648 1! NONE 3 
; 590 0649 1! | 3 
3 591 0650 1 ! IMPLICIT INPUTS: s 
3 235 0651 1! : 
3; 39 0636 1! CCB Pointer to current logical unit | : 
s 3% 0655 1! LUBSW_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. ‘ 
; 44 beee : LUBSA_RBUF _ADR Address of record buffer from OPEN : 
; 597 0656 1°! IMPLICIT OUTPUTS: | 3 
: 598 0657 1! 3 
3; 3 0658 1! LUBSA_BUF _PTR Points to start of user part of record buffer | ; 
3 ony +84 : LUBSA_BUF _END Points to end+1 of user part of record buffer : 
Py | . 
; 602 0661 1! RABS$B_RAC Set to correct access mode. | 
; 603 0662 1! : 
3 604 0663 1 ! ROUTINE VALUE: : 
; 605 0664 1! ; 
; 606 0665 1! NONE ; 
: 607 0666 1! : 
; 608 0667 1 ! SIDE EFFECTS: : 
; 609 0668 1! ; 
: 610 0669 1! NONE | : 
3; 6611 0670 1 !-- ; 
3 ol¢ 0671 1 : 
: 61 067 BEGIN | ; 
3 614 067 . 
s 615 Bore EXTERNAL REGISTER : 
: 616 675 CCB : REF SFORSCCB_DECL; ; 
3; 617 0676 ; 
; 618 0677 '¢ : 
; 619 0678 ! Setup first output buffer. If segmented record control : 
; 620 0679 ' then set first word to 1 as a flag that this is first record : 
; 621 0680 ! in segnented logical record record. Set first user address : 
: oc¢ 681 ' to third byte in output buffer. ‘ 
; o¢7 oss Else (unsegmented) set first user address to first byte in output buffer. : 
; 635 Os 4 ; 
; 626 685 CCB CLUBSA_BUF_PTR] = (IF .CCB CLUBSV_SEGMENTED] THEN F 
: oct 0686 4 BEGIN 
: 628 0687 4 (.CCB CLUBSA_RBUF_ADR])<0, 16> = 1; 


a. 
Record processing level of abstraction 16-Sep-1984 1:42:27 AX-11 Bliss-32 V4.0-7 Page 16 
° page erteBe 98:85:9, | EPbaR tL SReaFORRECPRO.B$2: 1 | 
: 629 0688 4 .CCB CLUBSA_RBUF_ADR] + 2 
; 6 689 4 END 
: 631 690 ELSE .CCB CLUBSA_R UF _ADR}): 
: 6 2 0691 CCB CLUBSA_BUF_END .CCB CLUBSA_RBUF_ADR] + .CCB CLUBSW_RBUF_SIZEJ; 
; 634 069 ‘+ 
: 655 0694 i If user opened with oo set access mode to 
3; 6 695 i KEYED, else SEQU ENTIAL 
: bet Beas - 
; 659 0698 IF .CCB CLUBSV_KEYED] THEN CCB CRAB$B_RAC] = RABSC_KEY ELSE CCB CRABSB_RAC] = RABSC_SEQ; 
5 641 0700 RETURN; 
5 642 0701 END; ! End of FORSS$REC_WSUO routine. 
| 
0B FD AB 03 £1 00000 FORSSREC_wSUO:: 
6BC #3, -3(CCB), 1$ : 0685 
EC BB 01 BO 00005 MOVW #1. a-20(CCB) + 0687 
50 EC AB 02 C1 00009 ADDL3 #2, -20(CCB), RO : 0688 
04 11 0000 BRB 2$ : 
50 EC AB DO 00010 1$: MOVL =20(CCB), RO : 0690 ' 
BO AB 50 b0 00014 2$: MOVL 0, -80(CCB) > 0685 | 
50 D2 AB 3C 00018 MOVZWL =46(CCB), RO + 0691 | 
B4 «AB EC BB40 9E O00IC MOVAB a-20(CCBSCROJ, -76<CCB) ; 
FD AB 95 00022 TSTB. ss = 3( CCB) : 0698 
05 18 00025 BGEQ 3$ : 
1E AB 01 90 00027 MOVB #1, 30(CCB) : 
05 00028 RSB : 
1E AB 94 0002C 38: CLRB =-_- 30 CCB) : 
05 0002F RSB : 0701 


; Routine Size: 48 bytes, Routine Base: _FORSCODE + 00C5 


; 643 0702 1 


SSS Eee eer eee ——E re 
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1-051 4 . 127880-1 384 99:95:84 FORRTL.SRCJFORRECPRO.B52;1 = (8) | 


GLOBAL ROUTINE FORSSREC_WSU1 ! Write sequential unformatted 
: JSB_REC] NOVALUE = 


648 1o+ 
! FUNCTIONAL DESCRIPTION: 


Write one poquent se’ unformatted record and initialize for the next 
FORSSREC_WSU1 writes one output buffer and then 
initializes the output buffer and returns start and end+1 of user 
art of record buffer to be filled by caller. 
LR records are null ed. 
If gn ee signal error since only one record allowed per 


PAAPAAAAAAO 
PAA 
ONOUS WO” 


'¢ 
! If unsegmented, SIGNAL_STOP FORS_OUTSTAOVE (66 = ‘OUTPUT STATEMENT OVERFLOWED RECORD’) 
since can't go on to next record without segment control. 


; 0703 1 : 
; 704 1 ; 
; 108 | 
3 7 5 1 | 3 
3 708 1! : 
3 709 1! ; 
; 0710 1! . 
; 0711 1! : 
; 07 § 1! : 
; 07 }! ; 
; fi 4 1! ; 
3 719 1! 1/0 statement. ; 
3; 65 07 8 1} Do not increment logical record number since this is only ° 
3 022 oF { ! part of logical record (FORSSREC_WFU9 will increment). : 
; 661 0719 1 ! CALLING SEQUENCE: : 
; 66 0720 1! ; 
: 66 0721 1! JSB FORSSREC_WSU1 () : 
> 664 o7$6 1! : 
; 665 0725 1 ! FORMAL PARAMETERS: : 
; 666 0724 1! : 
; 667 0725 1! NONE ; 
; 668 0726 1! : 
; 669 0727 1 ! IMPLICIT INPUTS: ; 
; 670 0728 1! 3 
; 671 0729 1! cCcB Pointer to current logical unit : 
; 672 0730 1! LUBS$W_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. ; 
; 673 0731 1! LUBSA_RBUF ADR Address of record buffer from OPEN : 
§ ore bf 36 : } LUBSA_BUF _PTR Pointer to end+1 of data in uer buffer | : 
: 676 0734 1°! IMPLICIT OUTPUTS: : 
; Of7 0735 1! ; 
; 678 0736 1! LUBSA_BUF _PTR Points to first char in user part of ; 
; 679 0737 1! record buffer. . ; 
; 680 0738 1! LUBSA_BUF _END Points to Last+1 char in user part of : 
; 681 0739 1! record buffer. 3 
; 682 0740 1! : 
; 683 0741 1 ! ROUTINE VALUE: : 
; 684 Bree 1! : 
; 685 0745 1! NONE | ; 
; 686 0744 1! : 
; 687 0745 1 ! SIDE EFFECTS: | 3 
; 688 pres 1: ; : 
; 689 747 1! SIGNAL_STOPs FORS_OUTSTAOVE if unsegmented record : 
; 6691 0749 1 | : 
: 0 BEGIN | : 
; 1 ; 
3 694 § EXTERNAL REGISTER ; 
; i CCB : REF SFORSCCB_DECL; ; 
; 8 é 

0758 

; 0759 


-—— 
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16-Sep-1984 
1e-8ep-1984 99: 48: $5 
IF .CCB CLUBSV_SEGMENTED] EQL 0 THEN FORSSSIGNAL_STO (FORSK_OUTSTAOVE); 
'¢ 


i If fixed length records (FLR), pad with trailing nulls. 
4 Set recordsize to actual Length of record, 


AX-11 Bliss-32 V4.0-7 


IF .CCB CLUBSV_FIXEDIJ 
THEN 


BEGIN 
CCB CRABSW_RSZ) = .CCB CLUB$W_RBUF_SIZE); ! Always set RSZ 
IF .CCB CLUBSA_BUF_PTR] LSSA .CCB CLUBSA_BUF_END] THEN FILL_BUF (0) 


END 
ELSE 


CCB CRAB$W_RSZ] = .CCB CLUBSA_BUF_PTR] - .CCB CLUBSA_RBUF _ADRI; 


'¢ 
i Output buffer to RMS and check for err 
a If errors, SIGNAL_STO FORS_ERRDURWRI (38=" ERROR DURING WRITE") 


CCB CRABSL_RBF] = .CCB CLUBSA_RBUF_ADRI; 
IF NOT SPUT (RAB = .CCB) THEN PUT_ERROR (); 


'¢ 

i Setup a subsequent output buffer. 

! then set first word to 0 as a flag th 
! in segmented logical record (FORSSREC_WSU9 will set bit 
! then set first user address to third byte in output it FR, 

i. Else (unsegmented) set first user address to first byte in output buffer. 


iy 1 peppentes record control 
his is a subsquent record 
1 to 1 on last record); 


CCB CLUBSV_SEGMENTED] THEN 
16> = 0; 


CcB cL UseA. BUF _PTR] = (IF 


- 2CCB CLUBS$A_RBUF Aoe)<p. 
B CLUBSA_RBUF_ADR) + 


én 
ELSE .CCB CLUBSA_RBUF _ADR]) 


CCB CLUBSA “BUF_END] =".CCB ELUBSA_RBUF_ADR] + .CCB CLUBSW_RBUF_SIZE]; 


RETUR 
END; ! End of FORSSREC_WSU1 

FD AB 03 £0 00000 FORSSREC_wSU1:: 

5 -3(CCB), 1$ 
7E 42 8F 9A 00005 MOVZBL #66, -(SP) 

000000006 00 01 FB 00009 CALLS. #1, FORSSSIGNAL STO 

FD AB 02 €1 00010 1$: BBC #2. =3(CCB), 2$ 

22 «AB 02 AB BO 0015 MOVW  -46(CCB), 34(CCB) 

B4 AB B AB D1 00 1A PL -80(CCB). -76(CCB) 

10 1€ O001F BGEQU 3$ 


FORRTL.SRCJFORRECPRO. 2 2;1 


TOC PTererererer Si Sr arerererererererer er er erate er eT er erat eT eT eT er er er er ere er ee et er ° . | 


oO wo OMe MM 
—-oO ™ oOo Oooo S0eSO SO 
~ Ll ek ed rm OF-D 
° ooo ooo COCO oO 
Le] Sete te terete tate te ete tera rtere teats 
i) 
a 
th, 
— 
*. 
~N | 
Ne 
Tom 
ns 
'o ~ 
oc @ 
a Vv | 
wu vw | 
>w ~ ~ i 
t. 4 ~w wo | 
Nac ~y vv 
moO ca) | | 
i . ~— j | 
or ~ so | 
nu o-~ ~~ | | 
“a Vow Oo 4 j 
~W Vu A = | 
@: wu wn s } 
— ow < . Ln | 
Fe uu dO or n= OROO | 
—-a > ter &- &n DOD coca j 
‘c @ > =eoQ wv wo ws 
xO q ss Qa wmuwRnw ew 3s 
<u —~I an A reoO~ ~~ @ 
>ws + @O20O ” &~vLod @DOoOOw 
—- Vo + RDMLN YVODOYY 
aw Yu wwainw~ti vYwivuw 
a ~~ oO ~ ~O 
| m:s OFF@M@ +s: ws Oo ~om 
j QO YS MONO OOM 1 WMO. I 
wr tRMi tC VORBeITeeVeGBeoiaci ce 
wn 
rr |] 
oe oo “nom wm Ww ~ 3am 
om 4445 BYsTtuswy Bu 4nd 
Soe &£jOO>VIDO swecaga>>>>w 
J<£a@ 5054 3204025000 
TFT VVOuTACOvrOvat Ot eEeEa 
| on 
| y= 
' e 
aa 
o ew + - -- « 
mn Fi he co AA 
i) are ~w mwa 
Ow < 
— — ee ee OMe Wr Ve TO CWO 


ROOD PIP AT TT TUNNUN OO 
ODOOOOCOCCOOOOoOoOoOoOoSooO 


} 
' 
SOSOSSOSSOOOSSOSOSOSSSSOSO MH 
SOSDOSOSDSSOOSSSOOSSOOSS s 
ZIO—MOCOMOO—-w COLUMN SO 
| Our fOOoe Wu wOvr OOMCoO ‘ 
wh OOO-—COManu-. DOMO w 
c ROOa aNnOnNooOmMoOoOanays a 
° 2 o 
-_- Ww 
es A 
Vv ww ~ w NY fs 
@e rveTve) w [vv) OQw oO 
« pred 
ee t 
| nw 
2 
wo - 
oe 
ae " 
° u @0 Onum @ o2e2 o 
Oo €«a SOVEA =< NaN wo 
~ 
wo ® 
> > o > c 
e Soom SoS SOA LU ow - 
| ~ Oo @N SoS Ou w © @ ~ 
o coo 3 
an So o © re) 
c o « 
-— o 
w o 
w oO 
e 
e @ x<o . 
° < ow w 
c ry 
a ~ 
~ _- 
° ~ 2 
c ~N 
| O° wn wr 
| ~~ oO o 
j eae saad [- <] 
« °o 
| ry 
ve N 
oO red 
| « “ 
i a 
4 ry) 
=) c 
w - 
« e we) 
Ae > ~w 
an fe) ~ 
57 < 
] 
*e 


| 


’ 
| 


9 
FORSSREC_PROC Record processing level of abstraction 1b-se -1984 42:27 AX-11 Bliss-32 V4.0-74 P 0) 
est “ os eRe AR Pe ee og Pe age 3) 


3 76 5 1 GLOBAL ROUTINE FORSSREC_WSU9 ! Write sequential unformatted 

3 76 $ 1 : JSB_REC9 NOVALUE = 

ey: 1 

; 751 1 !4+ 
; 4 5 9 ! FUNCTIONAL DESCRIPTION: 

; 7546 ian Write last paqvens tet unformatted record. 
3 9 \ 1! FORSSREC_WSU9 writes the output buffer | 
3 Le8 7. ee If segmented, the first control word is set to 1 as a flag 

; 14 #1! that record is Last record of logical segmented record. 
s fo 0815 1! Otherwise an ordinary write sequential write last record is done. | 
; 759 8 1g 1 ! The ge record number is incremented once for entire segmented 

; 760 |e | logical record. 
; 761 0818 1! 
; 76 0819 1 ! CALLING SEQUENCE: 

; 0820 1! | 
3; 764 0821 1! JSB FORSSREC_WSU9 () 
: 765 08 ¢ 1! 
; 766 082 1 ! FORMAL PARAMETERS: | 
3; 767 0824 1! 

: 768 0825 1 | NONE | 
; 769 0826 1! | 
; 770 0827 1 ! IMPLICIT INPUTS: | 
; 771 0828 1! 

3s Te 0829 1! CcB Pointer to current logical unit 
3; 7s 0830 1! 
3; 774 0831 1 =! IMPLICIT OUTPUTS: 

3; 775 peas 1! : 
3; 776 08335 1! LUB$L_LOG_RECNO Logical record number is incremented | 
s 777 0834 1! after write is done to be next record. 
; 778 0835 1! | 
; 779 0836 1 ! ROUTINE VALUE: 

: 780 0837 1! 
3 fel 0838 1! NONE 

; 0839 1! 

; 0840 1 ! SIDE EFFECTS: 

; «784 0841 1! 

; 785 0842 1! NONE 

; 786 0843 1 !-- 

: 787 0844 1 | 
; 788 0845 2 BEGIN | 
; «4789 0846 2 | 
; 790 0847 EXTERNAL REGISTER 
; 791 bees CCB : REF SFORSCCB_DECL; 
; 79 849 
; 0850 + ‘ 
; 794 0851 : iy yrecgnentes, write this one record as a sequential record. 
: 795 0826 ' (FILL with trailing nulls if short FLR record). | 
; 796 085 = | 
: 797 0854 | 
: oe O82? IF .CCB CLUBSV_SEGMENTED] EQL 0 
3 B00 a 1 og ME MECP (FORSSREC_WSF9) ' Force JSB Linkage on BIND symbol | 
; 80 +44 
; 80 0860 '¢ . : 
; 804 0861 ! Else (segmented control), set bit 1 of first word in buffer as 


POREEREC PROC 
1-031 


; 805 $¢ 
5 ] 6 
; 80 64 
: 808 65 
; 809 06 
ae th $8 
: 81 869 
3 8 it 0 
; «814 0871 
; gi? th 
; £18 a4 
; 818 0875 
3; 819 0876 
: 820 0877 
; 821 0878 
3 BS¢ 0879 
: 82 0880 
; 824 0881 
; 825 eth 
: 826 088 
3 Ger 0884 1 
; Routine Size: 18 bytes, 


; 828 0885 1 


Record processing level of abstraction 


03 


K 9 
16-Sep 07 138% AX-11 Bliss-32 V 
4-Sep 4 


12:38:89 


14-Sep-19 FORRTL.SRC FORREC 
' a mark that this is the last record of segmented record. 
} Note: bit 0 says whether this record is first or subsequent record. 


BEGIN 

(.CCB CLUBSA_RBUF _ADRJ)<1, 1> = 1; 

14 

Write record, check for errors (do not increment logical record number) 


FORSSREC_WSU1 (); 


ba 
i Update logical record number (after error check) 
_once for entire logical segmented record. 


CCB CLUBSLLO6,RECNOD = .CCB CLUBSL_LOG_RECNO) + 1; 


RETURN; 

END; ! End of FORSSREC_WSU9 

FD AB 03 €E0 00000 FORSSREC_WSU9:: 

Bes #3, -3(CCB), 1$ 
FEBB 31 00005 RW FORSSREC WSF9 
EC 6B 02 88 00008 1$: BISB2 # CCB) 
89 10 0000C BSBB FORSSREC _wSu1 
EO AB 06 OOOODE INCL -32(CCB) 
05 00011 RSB 
Routine Base: _FORSCODE + 015E 


PRO.B8251 
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FORSSREC_PROC Record processing level of abstraction 18-Se 1984 00:42:27 AX-11 Bliss-32 V4.0-7 P 2 
1-031 : : Ve=$ep=19e 92:35:99 ERORRTL SRESFORRECPRO.B32;1 29° 165, 


GLOBAL ROUTINE FORSSREC_RSUO ! Read sequential unformatted 
! Called from FOR SREC RSU1 if segmented. 
: JSB_RECO NOVALUE 


++ 


FUNCTIONAL DESCRIPTION: 
FORSSREC_RSUO reads one unformatted sequential record. 
Then return start and end+1 of user 
art of record to be processed as inpu 
heck for end of file. If segnented. Whack for ENDFILE record. 
CALLING SEQUENCE: 
JSB FORSSREC_RSUO () 
FORMAL PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


CoCo 
WMO OENAU EWN CO OOnNO 


SSSSSSSSSSSSSO Dooce 


ve] 
oo 
One 


H 1 

: 1 

; 1 

; 1 

; 1} 

: 1 i 

: 13 

: 1} 

: 1! 

: 1 i 

; 1} 

: 1} 

F 1 i 

: 1} 

; 1} 

; 1! 

; 1} 

: 1} 

: 1} 

: 1} 

: 1} 

: 1! 

; 0908 1! cCcB Pointer to current legicet unit 
; 0909 1! LUBSA_RBUF _ADR Address of record buffer set up on OPEN 
; 0910 1! ISB$V_SNGL_ELEM Flag indicating whether this is a 

: 048 : single-element transfer 

: 34 F : IMPLICIT OUTPUTS: 
3 0915 1! ISBSV_LAST_REC Set to 1 if last record of segmented record read. 
; 0916 1! Do not increment logical record number 
3 0917 1 since segmented is one record. 
; 0918 1! LUBSA_BUF _PTR Pointer to start of user data in buffer 

3 0919 1! (This routine may bump the gointer over 
: 0920 1} - mented record control info 

3 0921 1! RABSW_RSZ to read record length or °FERO 
3 0356 : if an error occurs. 
3 096 RABS$B_RAC set to sequential access mode | 
4 | 
3 0396 1 ' ROUTINE VALUE: 
; 871 0927 1! 
3 are 0928 1 | NONE 

3 87 0383 1! 

: 874 0930 1 | SIDE EFFECTS: 

; 875 0931 1! 

; 876 aa) 1 Reads next record from file on this logical u 

. oye 933 1! SIGNAL_STOPs FORS_ERRDURREA (39="ERROR DRUING PREAD') 

; 878 934 1! SIGNAL-STOPs FORS_ENDDURREA (24="END-OF-FILE DURING READ") 

3 444 832 : & SIGNAL-STOPs FORS_INPRECTOO (22) if RMS record too big 

; «4881 937 1 

3 Bae 3 BEGIN 

; 88 939 

; 884 940 EXTERNAL REGISTER 

; 885 0941 CCB : REF SFORSCCB_DECL; 

; 886 0942 


FORSSREC_PROC 
1-031 


S335 


Record processing level of abstraction 


peleleleleleleleleleleleleleleloalo) 
OOOOOOOOOOOO 
PA TIVIVIVILIVILI & 


oovono 
AAA 


p=1986 19:38:89 — ERORRTL SRESFORRECPRO-692:1 


16-5 
14-5 
CCB CRABSB_RAC) = RABSC_SEQ; 


'¢ 


Read record into buffer using RMS and check for erros 

If end-of-file, SIGNAL_STOP FORS_ENDDURREA (24="END-OF-FILE DURING READ‘) 
If record too big for record buffer S 1GNAL STOP FOR$_INPRECTOO. 

If errors, SIGNAL_STO FORS_ERRDURREA (39="ERROR DURING READ’) 


RMS$_RTB is not an error unless the record is too big for the 
record buffer; if it is merely too big for the user element in a 
single-element transfer, no error has occurred. 


eee ee ee ee ee 


IF NOT $GET (RAB = .CCB) Twgn 
IF NOT (.CCB CRABSL_STS £m RMS$_RTB 
AND .CCB CRAB$W_RSz) LEQU™.CCB CLUBSW_RBUF_SIZEJ) 
THEN GET_ERROR (); 


1+ 

! Increment logical record number (for backspace) 

' so it is the number of the next record to be read. 

Do this only after the record has been successfully read. 


IF NOT .CCB CLUBSV_KEYED] THEN CCB CLUBSL_LOG_RECNO) = .CCB CLUBS$L_LOG_RECNO) + 1; 


'¢ 
} Return start and end+1 address of record just read 


CCB CLUBSA_BUF_PTR] = .CCB PRAgSL _ROF 1: 
CCB CLUBSA_BUF_ENDJ = .CCB CRABSL_RBFJ + .CCB CRABSW_RSZJ; 
'¢ 
If segmented record, check record format 
IF .CCB CLUBSV_SEGMENTED) 
THEN 
'¢ 
! If (segmented) record is an ENDFILE record (one ozse Long and control 2) 
SIGNAL_STOP (FORS_ENDDURREA (24="END-FO-FILE DURING READ"). 
BEGIN 
IF .CCB CRABSW_RSZ) EQL 1 
IF .(.CCB CRABSL_RBFJ)<0, 8> EQLU FORSK_CONTROL_2Z 
FORSSSIGNAL_STO (FORSK_ENDDURREA); 


Check format of Soppent d record. 
' If record is less than bytes Long or bits 15:2 are not zero 
! SIGNAL_STOPs FORS_SEGRECFOR (55="SEGMENTED RECORD FORMAT ERROR’) 


P 3 
29° 45), 


Bae Be Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Se Ge Ge Ge Ge Fe Ge Ge Ge Ge Se Ge Se FH Se eee Se Ge SH Se Se Se Se Se Se Se Se Se See ss ee Fe Se Se Se teases 
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FORSSREC_PROC Record processing level of abstraction 16-Sep-1984 00:42:27 AX-11 Bliss-32 V4.0-74 Page 24 

e+ 8 13-8 08- 138 90:45:95 PORRTL  SRETFORRECPRO. B42: 1 a 
> 944 1000 '< $ 
; 945 198) ; 
:; 9 1 8 IF .CCB CRABSW_RSZ) LSSU 2 gr 3 
3 ot st 4 (.CCB CRABSW_RSZ) GEQU 2 AND .(.CCB CRABSL_RBFJ)<2, 14> NEQU 0) : 
: 949 1005 FORSSSIGNAL_STO (FORSK_SEGRECFOR); : 
; 950 1308 - bi 3 
; 32) 100 + ; 
; 9 § 1008 ! Set buffer pointer beyond end of control word. ; 
; 95 1009 ! Check for last record control word (bit 1=1). . 
; 954 1010 ! If last record, set last record of segmented record flag (ISBS$V_LAST_REC) : 
> 955 19) ! and leave logical record number incremented. ‘ 
3 228 1 \¢ ! If not last record, decrement logical record number so not advanced : 
3 Bat la since a segmented logical record is a single record (for backspace). : 
; 959 1015 3 
: 960 1016 CCB CLUBSA_BUF_PTR] = .CCB CLUBSA_BUF_PTR] + 2; : 
; 96 1018 IF .(.CCB CRABSL_RBFIJ)<1, 1> 3 
; 96 1019 | 3 
; 964 1020 CCB CISBSV_LAST_REC] = 1 3 
; 965 1021 EL 3 
3 He i0s¢ CCB CLUBSL_LOG_RECNO) = .CCB CLUBS$L_LOG_RECNO) - 1; | : 
: 968 1024 END; ! End of segmented processin 3 
: 969 1998 5 . , ° | : 
: 970 1026 2 RETURN; 3 
; 971 1027 1 END; ! End of FORSSREC_RSUO | : 
| a 
| Py 
é 
52 DD 00000 FORSSREC_RSUO:: é 
PUSHL R2 : 0886 3 
1E AB 94 00002 CLRB 30(CCB) 3: 0943 3 
5B 0D 00005 PUSHL CCB : 0956 3 
000000006 00 1 FB 00007 CALLS #1, SYSS$GET 3 3 
16 0 €8 OO00E BLBS RO, 2 ; 3 
000181A8 8&F 08 AB 01 00011 CMPL 8(CCB), #98728 ; 0957 3 
07 12 00019 BNEQ 1$ : : 
D2 AB 22 AB B1 0001B CMPW 34(CCB), -46(CCB) ; 0958 | ; 
05 1B 00020 BLEQU 2$ 2 3 
0000v CF 00 fe 890 § 1$: CALLS " GET_ERROR : 0959 | 3 
FD AB 95 0002? 28: TSTB = = 3 (CCB) : 0967. 3 
03 19 0002A BLSS 3$ ; 3 
EO AB 6 0002C INCL =32(CCB) 3 : 
52 28 OA F OO2F 3$ MOVAB 40(CCB), R ; 0973) PY 
BO AB 6 p 00 : MOVL  (R2), -80(CCB) ; : 
50 22 AB 3C 00 MOV2wL 34(CéB), R > 0974. : 
B4 AB 62 30 C1 000 B ADDL3 Rd, (R25, -76(CCB) : | : 
3E FD «AB 03 £1 0004 BBC #3. -3(CCB), 8$ : 0980 | ; 
01 22 «AB OSI 0043 CMPW =s«-34(CCB), #1 : 0990 ; 
OF 12 49 BNEQ = 4$ ; | ; 
1A 00 3 91 00048 CMPB @0(R2), #26 ; 0992. : 
0 12 Q004F BNEQ 4$ : : 
18 dD 00051 PUSHL #24 ; 0994 : 


10 


FORSSREC_PROC Record processing level of abstraction 16-Sep-1984 AX-11 Bliss-32 V4.0-7 
1-031 4 ° 14 et 7 99: 43; $5 FORRTL.SRCJFORRECPRO. ‘ 2;1 
000000006 88 01 Fe 3 CALLS #1, FORSS$SIGNAL_STO 
22 Ae B A 4$: tMPW 4(CCB), # 
08 if ‘ BLSSU 
FFFC BF 00 Be 5 006 BITW @0(R2), #65532 
09 1 BR peg BEQL 6$ 
23 «OD Bape 5$: PUSHL te 
000000006 00 01 4 QO6A CALLS » FORSS$SIGNAL_STO 
BO AB 02 CO 00071 6$ ADDL2 Ay -80(CCB) 
06 00 B2 01 ‘i 00075 C #1, a0(R2), 7$ 
96 AB 20 88 007A BISB2 #32, -106(CC 
03 11 OQOO7E B 8$ 
EO AB O07 pney 7$: DECL -32(CCB) 
04 BA 00083 8$: POPR #*M<R2> 
05 00085 RSB 
; Routine Size: 134 bytes, Routine Base: _FORSCODE + 0170 


972 1028 


1 


rel 
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FORSSREC_PROC Record processing level of abstraction 1b-Sep-19 4 eT aE HA Ax-11 a a Pe V4.0-74 Page 26. 
1-031 14-Sep-1984 12:32:59 FORRTL.SRCJFORRECPRO.B52; 1 (11). 
: 974 1029 1 GLOBAL eoulies FORSSREC_RSU1 ! Read sequential unformatted ; 
; 975 1030 1 : JSB_REC1 NOVALUE = : 
; 378 1031 1 ° 
; oO 10 ¢ 1 !++ : 
H af8 13 Z ! FUNCTIONAL DESCRIPTION: ‘ 
; 980 1035 1! FORSSREC_RSU1 reads one unformatted sequential record. : 
>; 98) 10 8 @ Then return start and end+1 of user ; 
; 10 8 ap of record to be processed as input. ‘ 
; 1038 1! f no segmented record, then error since only one record allowed. ’ 
; 984 1039 1! per 1/0 statement. ‘ 
; oe iste ! } f Last segmented record already read it is also an error. ; 
; 987 ISe6 1 ! CALLING SEQUENCE: : 
; 988 1045 1! ‘ 
; 989 1044 1! JSB FORSSREC_RSU1 () ‘ 
; 990 1045 1! : 
: 991 1046 1 | FORMAL PARAMETERS: | ; 
; 99 1047 1! ; 
; 99 1048 1! NONE ; 
: 994 1049 1! ‘ 
; 995 1050 1 ! IMPLICIT INPUTS: : 
: 996 1051 1: | ; 
; Wr 1926 1 I CCB Pointer to current logical unit ; 
; 998 tone 3 ; 
; .999 1054 1 ! IMPLICIT OUTPUTS: | : 
; 1000 1055 1! ; 
; 1001 1056 1! LUB$L_LOG_RECNO Increment logical record number ; 
; 100 1057 1! of next record to be read. | ‘ 
: 100 1058 1! : 
; 1004 1059 1 ! ROUTINE VALUE: ‘ 
; 1005 1060 1! : 
; 1006 1061 1! NONE ‘ 
: 1007 1066 1} : 
; 1008 1063 1 ! SIDE EFFECTS: ‘ 
; 1009 1064 1! | : 
; 1010 1065 1°! Reads next record from file gn this wett unit. : 
; 1011 1066 1! SIGNAL_STOs FOR$_ERRDURREA (39="ERROR DURING READ’) ‘ 
: 10s 1067 1! SIGNAL_STOPs FORS_ENDDURREA Cth dy a db DURING READ') " 
3; 101 1068 1! SIGNAL_STOPs FORS_SEGRECFOR (35="SEGMENTED RECORD FORMAT ERROR’). ; 
; ste 1388 ' SIGNAL-STOPs FORS_INPSTAREQ (67="INPUT STATEMENT REQUIRED TOO MUCH DATA") | : 
: 1016 1071 1 : 
: 1017 1078 BEGIN : 
: 1018 107 : 
; 1019 1074 EXTERNAL REGISTER : 
: 1020 1075 CCB : REF SFORSCCB_DECL; . 
re 
: 7¢ 
3; 10 : 1078 ' If no segmented records, SIGNAL_STOP FORS_INPSTAREQ (67 ="INPUT STATEMENT REQUIRED TOO MUCH DATA") 
; 1024 1079 ' since cannot on to next record without segmented control. 
3 108? 1930 :_If segmented record, go read next record unless already last record. 
: 1027 10 | 
3 19e8 1088 IF .CCB CLUBSV_SEGMENTED) EQL 0 OR .CCB CISBSV_LAST_REC] THEN FORSSSIGNAL_STO (FORSK_INPSTAREQ) ; 
: 1086 1085 FORSSREC_RSUO (); 


10 
EOHMEL reat tecora procession Love of abutroction HEISEI ABLES EPEGAIMESRteltoaTiaen = Peg] 


: 1882 108? § = ENDS | End of FORSSREC_RSUI | 


05 FD AB 03 £1 00000 FORS$REC_RSUT:: 
BC #3, -3(CCB), 1$ : 1083. 

0B 96 AB 05 €1 00005 BBC #5. -106(CCB), 2% ; 

7E 43 BF 9A OODOA 18: MOVZBL #67, =(SP) ; 

000000006 00 01 FB O000E CALLS #1, FORS$SIGNAL_STO : 
FF62 31 00015 2$: BRW FORSSREC_RSUO + 1085 | 


; Routine Size: 24 bytes, Routine Base: _FORSCODE + 01F6 


; 1033 


1088 


1 


he 
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R iit Record processing level of abstraction 16-Sep-1984 00:45°60 net Bliss-32 V4.0- 


74 
14-Sep-1984 FORRTL.SRCJFORRECPRO.B32; 1 


GLOBAL ROUTINE FORSSREC_RSU9 ! Read sequential unformatted 
: JSB_RECS NOVALUE = 


7 
oO 


r 
we 


144 
' FUNCTIONAL DESCRIPTION: 
FORSSRES _fSu? performs termination after last 
sequential unformmatted record has been read. 
If segmented record and not at last record of segmented record, 
keep reading until read last record of segmented record. 
i CALLING SEQUENCE: 
JSB FORSSREC_RSU9 () 
i FORMAL PARAMETERS: 
NONE 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


PPPEPEECOCLS. 


CcB Pointer to current logical unit 

LUBSV_SEGMENTED 1 = segmented record info is present | 

ISBSV_LAST_REC Set to 1 when Last record of 

; segmented record has been read. | 

i IMPLICIT OUTPUTS: 

i ROUTINE VALUE: 
NONE | 


i SIDE EFFECTS: 


PAAAPAAASO oP ae 


yt ett PN AAD AAVNIVIUT 


BEGIN 


EXTERNAL RE 


GIS 
CCB : REF 


TER 
SFORSCCB_DECL; 

f begrectes record and if not already read last record of segmented record 
ISB$V_LAST_REC = 0) then keep reading records until find last record 

and increment logical record number once). 


Ce aed 


IF .CCB CLUBSV_SEGMENTED] 
THEN 


UNTIL .CCB CISBSV_LAST_REC] DO 

FORSSREC_RSU1~(); | 
RETURN; | 
END; ! End of FORS$SREC_RSU9 | 
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; Routine Size: 15 bytes, Routine Base: _FORSCODE + 020E 


F 1 | 
FORSSREC_PROC Record processing level of abstraction 16-Sep-1984 ae He HA VAX-11 Bliss-32 V4.0-742 Page 29) 
1-031 14-Sep-1984 12:32:39 CFORRTL.SRCIJFORRECPRO.B32:1 (12) | 
| ; 
; 
09 FD §6AB 03 €1 00000 FORSSREC_RSU9:: ° 
6BC #3, -3(CCB), 2$ : 1136 : 
04 96 AB 05 £0 00005 1$ BBS #5, -106(CCB), 28 ; 1139 : 
og 10 Q000A BSB FORSSREC_RSU1 3; 1140 : 
F711 Bane BRB 1$ 3 ; 
05 QOOOE 2$: RSB 3 1143 : 


; 1090 1144 «1 


10 
FORSSREC_PROC Record processing level of abstraction 1Sase -1984 00:42:27 AX-11 Bliss-32 V4.0-74 Page 30 
1-0 ™ . a Soy 12-308- 1884 99:45:95 FORRTL. SRC IFORRECP 0.852;1 ° as 
! 


3S = 
wr 


} 
3 7 1145 1 GLOBAL ROUTINE FORSSREC_wDO ! Write direct (formatted and unformatted) | : 
3; 3 1103 1 : JSB_RECO NOVALUE = | : 
; 1998 114 : 1e4 : 
; 1096 1145 i FUNCTIONAL DESCRIPTION: | : 
: 1098 1131 1 i Initialize for FORTRAN direct access (RMS sequential by rec. #) 1/0. ; 
; 1983 1 § ! Both formatted and unformatted. Return buffer pointers. ; 
; 1101 1184 i CALLING SEQUENCE: : 
; 1 g 1136] JSB FORSSREC_WDO () | 
: 1105 1158 1 | FORMAL PARAMETERS: 
3 1106 1159 1! | : 
DPS lan : 
: 1109 116g 1! IMPLICIT INPUTS: | 
21111 1164 1! CCB Pointer to current logical unit : 
3 1336 1165 1! LUBSA_RBUF _ADR Address of record buffer allocated at OPEN ; 
3 iii? 1188 : LUBS$W_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. : 
3 1115 1168 i IMPLICIT OUTPUTS: 
: 1117 1170 1: LUB$A_BUF _PTR Pointer to start of user part of record : 
; 1118 1171 1: buffer | ; 
3 1119 1126 ,$ LUBSA_BUF _END Pointer to END+! of user part of record | ‘ 
ne ME mie : 
; 1122 1175 1 | ROUTINE VALUE: | ; 
; 1123 1176 1 | : 
a cosine ll 
: 1126 1179 1 | SIDE EFFECTS: 3 
: 1187 1180 1 | | 
; 1128 78) 7! NONE ; 
> 1129 118¢ 1 !-- ; 
; 1130 1183 1 ; 
ine a : 
£1133 1186 g EXTERNAL REGISTER : 
3: 1134 1187 CCB : REF SFORSCCB_DECL; : 
1136 189 5 te | 
; 32 1190 i Return pointers to the record buffer ° 
Hie TBE | i 
: 1140 1198 CCB FLUBSA_BUF _PTR = .CCB CLUBSA_RBUF_ADR]; : 
; a) Bs: EEF, be vSoA SUF END = .CCB CLUBSA_RBUF_ADR] + .CCB CLUBSW_RBUF_SIZEJ; | ‘ 
P1108 1196 1 END; ! end of routine | : 

: 


FORS$REC_PROC 


Record processing level of abstraction 1p-Ren-1984 99:45:92 Yared) Obiegeae 
BO AB EC AB DO 00000 FORSSREC_wDO:: 7 ceca), « 
oo ool Hes ty SEE 


aoe 
MOVAB a= 

RSB 
_FORSCODE + 0210 


J, -76(CCB) 


; Routine Size: 16 bytes, Routine Base: 


> 1144 1197 1 


CPRO.B82; 1 Page (43) 


; Routine Size: 5 bytes, Routine Base: _FORSCODE + 022D 


10 | 
REC_PROC Record processing level of abstraction 16-Se 1984 00:42:27 AX-11 Bliss-32 V4.0-74 Pe fF 
. VenSep-1984 99:39:59 ERORRTL SRESFORRE CPRO.B92;1 29 a5 1 
: 114 1198 1 GLOBAL ROUTINE FORSSREC_wD1 ! write di ( | : 
: of 1138 A URE CT NOUACCE CE rite direct (formatted and unformatted) 
; 29 1 $4 1 44 ; 
: 29 ! 8 : FUNCTIONAL DESCRIPTION: : 
: 24 1206 1 Write current record and reset buffer pointers. We used to : 
‘ t : 82 : not allow more than one direct record. : 
; 53 0? 1 { CALLING SEQUENCE: | ; 
; 2 1209} JSB FORSSREC_WD1 () | ; 
; 39 11) | i FORMAL PARAMETERS: | 3 
i RE] se ee 
; 68 1213. 1 {IMPLICIT INPUTS: | ; 
Aes ae i 
; 67 1219 t IMPLICIT OUTPUTS: | ; 
: 1169 1221 1! ROUTINE VALUE: | : 
: 1170 1222 1! | 3 
nn ea 
; 4g 1225 1! SIDE EFFECTS: | : 
3 1174 1226 1! 3 
3 1175 1227 1 !-= 3 
; 1176 , 1228 1 : 
1 fee ee ox 
; 1179 1331 5 EXTERNAL REGISTER | ; 
: 80 1S36 2 CCB : REF SFORSCCB_DECL; : 
He RE : 
; Hy 1235 5 i Write a record, then reset pointers. ; 
118s 339 § 
> 1186 1238 : FORSSREC_WD9 (); ! Write the record ; 
: 1187 1239 2 FORSSREC_WDO (); ! Reset pointers ; 
; 1188 1240 2 RETURN; 3 
3; 1189 1241 1 END; : 
| 
0000V 30 00000 FORSSREC_wD1:: ; 
BSBW = FORSSREC_WD9 : 1238 : 
EB 11 00003 BRB FORSSREC_WDO : 1239 ; 


; 1190 1242 1 


ee rc 


p=1984 12:39:89 ERORRTL SRC SFORRECPRO-B82; 1 Pee 18) 
' 


Write direct (formatted and unformatted) 


J 10 
ogy ree Record processing level of abstraction 16-Se 
1-031 14Se 


GLOBAL ROUTINE FORSSREC_wD9 
: JSB_REC9 NOVALUE = 


'e4 
FUNCTIONAL DESCRIPTION: 

Write a FORTRAN direct access record (RMS bequens vat by rec. #). 
Formatted and unformatted. Pad out buffer with spaces or nulls 
depending on whether formatted or unformatted. 

CALLING SEQUENCE: 
JSB FORSSREC_WD9 () 


FORMAL PARAMETERS: 


BLISSELESLLS 


SIDE EFFECTS: 
SIGNALSTOPs FORS_ERRDURWRI if RMS write error. 


04 

05 

06 

07 

38 NONE 
10 ccB Pointer to current logical unit 

11 LUBS$V_UNF ORMAT 1 if unformatted, 0 if formatted. 

\¢ LUB$L_LOG_RECNO Record number to write 

1 LUBSW_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. 
14 LUBSA_RBUF_A Address of record buffer allocated at OPEN 
15 LUBSA_BUF PTR Pointer to end+1 of user data in record buffer 
16 ISBSV_SNGC_ELEM Flag indicating that RAS$W_RSZ and 

i? RABSL_RBF have been set up at UDF level 
19 IMPLICIT OUTPUTS: | 
21 LUBS$L_LOG_RECNO Updated record number 

22 we ar. Updated associated variable if present | 
$i LUBSV_F IND_LAST Cleared 
35 i ROUTINE VALUE: | 
57 NONE | 
28 
3 
0 
: 
33 

34 

3 


OO O 09.09.0000 09 09 09 09 09 09 SI NIN NSN SN SN SPA A AAA AAA MII EB 
WR OOD NAVE WN 0 OONAUS WN OO OODNAUE WN O OONAOV EW OOODNOULEW 


3:1 
3; 7 
3% 
: 1 
37 
3; 1 
3 7 
3 7 
3 3 
3% 
3} 
3% 
3; 7 
3 3 
3 3 
; } 
. 3 
3 1 
$1 
3 7 
3 7 
3% 
3; 7 
3 7 
3 1 
3; 
3% 
3 1 
3 7 
3 1 
3; 
3 
3% 
3 7 
31 
3; 1 
3 1 
31 
; % 
3 7 
37 
3; 7 
3 1 
3 1 
3 1 
3 7 
3 7 
3; 7 
3 1 
3] 
3% 
37 
37 
3 1 
3; 1 
3 1 
3 1 


me me em ed ed dd ed dd wd = = = 2 2 dd 


PROPDPOPIMPOAPSPNPIPINYNINYIPINYNININIPYNINYNINPYPIPNINPONIPUNIPONINININPUNINYNINPY PY Nonny 


ROMQPIPIPONOPIPNPYNNYNIAIMPINDPINYPINYDIPOPINY PIPPIN PI PINON NINUNPIPIPUPYNINIPIPININONNINNONY 2 2 OS Se 
ICSPOROPONOROPOPONONONONONIY 2 2 a 


BEGIN 
EXTERNAL REGISTER 
37 CCB : REF SFORSCCB_DECL; 
i 1+ | 
40 i If this is a buffered transfer (I1SBSV_SNGL_ELEM = 0), then set up | 
41 ! RABSW_RSZ and RABSL_RBF to point to the record buffer. Otherwise 
4g 4 they Rave already been set up at UDF level to point to an element. 
44 95 : | 
45 9 IF NOT .CCB CISBSV_SNGL_ELEM) 
46 9 THEN 
47 98 BEGIN 
48 99 IF .CCB CLUBSV_FIXED) 


~~ 


3 


kK 10 . 
REC_PROC Record processing level of abstraction 16-Sep-1984 00:42:27 AX-11 Bliss-32 V4.0-74 Page 34 
“ 7 . 1 pate 14 Sep 1382 9 g : 5 $251 ° Rit 


759 FORRTL.SRCJFORRECPRO.B 
0 THEN 
: 

04 

0 

I") 

0 

0 

2 

3 

3 


BEGIN 
1¢ 
Set RABSW_RSZ to record size. 


CCB CRABSW_RSZ] = .CCB CLUBSW_RBUF _SIZEJ; 


+ 
' Pad buffer with 
LUBSW_RBUF _SIZE 


PANANANASAE 


WONAUSWN—O” 


lLanks or nulls to bring record Length up to 
f not already. 


b 

i 

IF .CCB CLUBSA_BUF_PTR] LSSA .CCB CLUBSA_BUF_ENDJ 
FILL_BUF ¢ 


IF .CCB CLUBSV_UNFORMAT] THEN O ELSE %C" ‘); 
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OR 

-0 

3 1 1 3 

3 3 1 4 

3 1 1 4 

3 1 1 4 

: 1 1 4 

3 3 1 4 

3 Y 1 4 

3 1 1 4 

3} 1 4 

3; 1 1 4 
3 1 131 4 
: 1260 1311 4 
Me iNet | 
:1 68 1314 4 

> 1264 1315 4 
We WN 
. an | 
; 1399 132 ‘ use’ | 
; 1574 135 CCB CRABSW_RSZJ = .CCB CLUBSA_BUF_PTR] - .CCB CLUBSA_RBUF_ADR); 

ie O18 . | 
+ 1274 1 i Set RAB record pointer to the record. 

 15%8 135 2 | 
: 1277 1328 3 CCB CRABSL_RBF) = .CCB CLUBSA_RBUF_ADR); 

: 1278 13 END; 

Be ORG, 
> 1281 13 i Clear LUBSV_FIND_LAST. 
oe ee 
> 1284 133 CCB CLUBSV_FIND_LAST) = 0; 

: 15s 1339 '¢ 

: \¢ee 133 i Call RMS to perform the record PUT. | 
: 1288 1339 ' SIGNAL any errors. 

: 1550 1344 : 

:1 91 4@ IF NOT S$PUT (RAB = .CCB) THEN PUT_ERROR (); 

: } 3 1344 '¢ 

: 1294 1345 ! Increment the record number in the LUB and store 

: : 95 : r4 } into the associated variable. | 
31 39 1348 | 
3; 1298 1349 CCB CLUB$L_LOG_RECNO) = .CCB CLUBSL_LOG_RECNO) + 1; 
3: 1299 1320 FORSSASSOC (); 
: 1300 1351 RETURN; | 
; 1301 1352 END; ' end of routine | 


10 
FORSSREC_ PROC Record processing level of abst ti 16- -1984 2:42:27 AX-11 iss- 4.0-74 pP 
ees + ia tert) hagas: potbaapcpkgge sem 127 8807138s 99:35:92 ott tsr oan coco 62:1 age 433 


on 


; Routine Size: 84 bytes, Routine Base: _FORSCODE + 0232 


; 1302 1353 (1 


-Sep-1 FORR FORR » 
2F 97 AB 04 £0 00000 FORSSREC_wD9:: 
68S #4, ~495 (cc) 5$ :1 96 
1E FD AB 02 £1 00005 BBC #2, -3(CCB), $$ > 1299 
22 «AB 02 AB 80 OOA MOVW “48 (CCB) 34(CCB) + 1307. 
84 AB 8 Ag D F CMPL  =80(CCB), -76(CCB) ; 1314/| 
19 1E& 00014 BGEGU 4$ : 
04 FD AB gi E1 16 BC #1, -3(CCB), 1$ > 1318) 
D4 00018 CLRL 0s = (§P) : 
11 9010 BRB 2$ ; 
DD OOO1F 1$ PUSHL #32 : 
0000v CF 1 Fe 0 1 2$ CALLS #1, FILL_BUF : 
, 3 6 RB 4$ ; 1299 
22 AB BO AB EC AB A3 00028 3$ SUBW3 =-20(CCB), -80(CCB), 34(CCB) + 1322 
28 «AB EC OA p6 OO2F 4$ MOVL.  =20(CCB), 40(CCB) : 1328 
AO AB 08 BA 00034 5$ BICB2 #8, -96(CCB) + 1335 
5B OD 999 2 PUSHL + 1342 
000000006 00 01 Fe 003A CALLS #1, SYSSPUT ; 
05 50 £8 00041 BLBS ; ; 
0000v CF 00 FB 00044 CALLS #0. PUT_ERROR : 
EO AB 06 00049 6$: INCL  =32(CCBY + 1349 
000000006 00 00 FB 0004¢ CALLS #0, FORS$SASSOC + 1350 
05 0005 RSB + 1352 
| 
| 
| 


M10 
SREC_PROC Record processing level of abstraction 16-Sep-1984 00:42:27 AX-11 Bliss-32 V4.0-74 Pp | 
$3 ° 1e-8ep 19be 99:45:99 FORRTL.SRC FORRECPRO. 69251 a9 488 
' 


GLOBAL ROUTINE FORSSREC_RDO Read direct (formatted and unformatted) 


JSB_RECO NOVALUE = 
lee 
' FUNCTIONAL DESCRIPTION: 
Perform a FORTRAN direct access READ (RMS sequential by rec. #). 
Formatted and unformatted. Read record and store 
ASSOCIATED variable if any. 
i CALLING SEQUENCE: 
JSB FORSSREC_RDO () 


i FORMAL PARAMETERS: 


MEW" OOONOUNS 


PAA IMIMNIIVIN 


WWWAWNAWAANWNAAAN 
SF 


LALA AIA POR RO PURI 3 2 OOOO 


if error occurs. 
i ROUTINE VALUE: 

NONE 

i SIDE EFFECTS: 

SIGNALSTOPs FORS_ERRDUREA if RMS read error 


Www 


6 

6 
, NONE 
3 , ' IMPLICIT INPUTS: 
3 7 ccB Pointer to current logical unit 
3 7? LUBSA_RBUF _ADR Address of record buffer allocated at OPEN 
; , LUBSW_RBUF~ SIZE Size of record buffer allocated at OPEN 
3 , i IMPLICIT OUTPUTS: 
3 8 i LUBSA_BUF _PTR Pointer to user data in record buffer | 
3 8 LUBSA_BUF _END Pointer to end+1 of user data in record buffer 
3 8 LUBSV_F IND_LAST Cleared. 
3 8 LUBS$L_LOG_RECNO updated record number 
3 8 ass. var. updated associated variable (if any) | 
; 4 RABSW_RSZ set to read record length or ZERO 
3 8 
3 8 
3 8 

9 

9 


BEGIN 
EXTERNAL REGISTER 


NOUS WO OONOUEWN Oo OOnN 


WAN.AW AWA 
AAMMAMAAARE Ee eee ee 
nn ee en en ee ee ee ee oe ee ee oe ee 


POPOPIPDPOPONONPIPINININPNARY 8 at st at tt a tt tt tt tt 


9 CCB : REF SFORSCCB_DECL; 
'¢ | 
§ : Clear LUBSV_FIND_LAST. | 
5 | 
CCB CLUBSV_FIND_LAST) = 0; 
88 -F IND. 
8 08 ‘+ 
9 09 ' Call RMS to do the record GET. 
360 10 | SIGNAL_STOP EOF and RNF errors as ATTEMPT TO ACCESS NON-EXISTANT RECORD. 


1984 00:42:27  VAX=11 BLiss-32 v4.0-74 Page 37. 
pry 9ke 99; 95595 PANT ethes ae een as 918) 


N 10 
ta dma Record processing level of abstraction 19-30 


ag 


:1 141] | : 
3 1 1216 ! RMS$_RTB is not an error unless the record is too big for the ; 
3; 141 ! record buffer; if it is merely too big for the user element in an ‘ 
3 : Veie unbuffered transfer, no error has occurred. ‘ 
3 3 1218 ‘ 
3 1 141 IF NOT SGET (RAB = .CCB) ‘ 
3 1 1418 THE ‘ 
71 1419 IF NOT (.CCB CRABS$L_STS] EQ, RMS$_RTB | : 
3 3 1420 AND .CCB CRABSW_RSZ) LEQU”.CCB CLUBS$W_RBUF_SIZEJ) : 
; 1421 THEN ‘ 
3 7 14 ¢ BEGIN : 
31 14 1? ; 
; i 12 : ; Can't use GET_ERROR here because EOF means ATTACCNON. : 
21 1426 | ; 
3; 1 1427 WHILE .CCB CRABSL_STS] EQL RMS$_RSA DO ‘ 
3; 1 1428 4 BEGIN | : 
3; 4 1429 4 SWAIT (RAB = .CCB); ; 
3 7 1430 5 $GET (RAB = .CCB) : 
; 1 1431 END; | ; 
3 1 1o36 ‘ 
3; 1 143 IF NOT .CCB CRABSL_STS) ; 
3 3 1434 THEN * 
; 1385 1435 FORSSSIGNAL_STO ( : 
3; 1386 1436 3 
3; 1387 1437 SELECTONEU .CCB CRABSL_STS] OF : 
; 1388 1438 SET “ 
; 1389 1439 : 
; 1390 1440 CRMSS_EOF, RMSS_RNFJ : | ; 
3 1391 1441 3 FORSK_ATTACCNON; 3 
3 1338 1469 ; ; 
3; 139 144 CRMS$_RLK] : : 
3 1394 1444 3 FORSK_SPERECLOC; : 
; 1395 1445 3 . 
; 1396 1446 3 CRMS$_RTB) : H 
; 1397 1447 3 FORSK_INPRECTOO; 3 
: 1398 1648 3 | 
3 1399 1449 ; COTHERWISE) : : 
3; 1400 1450 FORSK_ERRDURREA; | : 
3 1401 1451 ; 3 : 
: 1008 e326 : 
3; 140 145 END; ‘ 
3 1404 1454 ; 
3; 1405 1455 '¢ j | : 
3; 1406 1456 ! Return pointers to the record just read. : 
3; 1407 1457 t= : 
; 1408 1638 : 
3 1409 145 CCB CLUBSA_BUF_PTR] = .CCB CRABSL_RBFI; ; 
: 1039 1699 CCB CLUBSA_BUF_END) = .CCB CRABSL_RBFJ) + .CCB CRABSW_RSZ); : 
: ht 1e36 '¢ : 
3 141 146 ! Increment the record number in the LUB and ; 
3; 1414 1464 ! store it in the associated variable. ‘ 
3 1415 1465 !e : 
; 1416 1466 : 
3 141 146 CCB CLUBSL_LOG_RECNO) = .CCB CLUBSL_LOG_RECNO) + 1; ; 


8 $738 Nt 0 5 880.1 


Y X-11 Blis 
ORRTL.SRCJFORRECPRO.B 


A 
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7 
9 
-EXTRN SYS$WAIT 


! end of routine 
08 8A 00000 FORS$REC_RDO:: 
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Record processing level of abstraction 
FORSSASSOC (); 
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_FORSCODE + 0286 


Routine Base: 


153 bytes, 
1 


1471 


; Routine Size: 
1421 


11 
FORSSREC_PROC Record processing level of abstracti 1beg -1984 1:42:27 Ax-11 B =3 ‘ 9 
p 3 p ee ee oP7198e 99:45:99 EironrecPRo. Page 433 


! IMPLICIT OUTPUTS: 
ROUTINE VALUE: 
NONE 
! SIDE EFFECTS: 


1-0 14-Sep-1984 PORRTL SREIFORRECPRO. B92: 1 | 
423 47 GLOBAL ROUTINE FORSSREC_WSLO ! Write list-directed | 
424 47 JSB_RECO NOVALUE = 
425 47 
426 47 14+ 
? 4 ry FUNCTIONAL DESCRIPTION: 
429 47 i FORSSREC_WSLO prepares a record for List-directed output. | 
430 47 i Then return start and end+1 of user 
: 1 ‘3 part of record to be processed. 

: 5 CALLING SEQUENCE: 
635 JSB FORSSREC_WSLO () 
437 i FORMAL PARAMETERS: 
438 ! 
439 i NONE 
440 i 
rat IMPLICIT INPUTS: 
te8 i ccB Adr. of current rag eb pe 
444 i LUB$W_R_MARGIN Line width set at OPEN t 
re LUBSA_RBUF _ADR Address of record Riter sl lecated at OPEN 
i 
i 
i 
i 
i 
' 
ie 


EXTERNAL REGISTER 
CCB : REF SFORSCCB_DECL; 


OOONOULSWN—OOOn 


'¢ 
return start and end+1 pointers to caller 


CC8 CLUBSA_BUF_PTR] = .CCB CLUBSA_RBUF_ADRJ; 
tue BUF-END) = .CCB CLUBSA_RBUF~ADR -CCB CLUBSW_R_MARGIN); 


END; ! END OF ROUTINE 


a a ed ed ed nd ed od ed dd od 


Pe ee Be Fe Se Ge Se Be Ge Se Fe Ge Fe Ge Fe Ge GF Se Ge Se Ge Se SH Se Se Se SESH SESH Se Se Se Se See Se eee ee Se Se Sete ssase 
a et et ee ek a a a 
PUPP PVPS SSSI SISTA ES BBS BS PPP PPP PPL LEE 


AAA 


o 
CONUS WN 
DWNOUE WN (OOO NAUE WN 9 OONOAOUSWN HO OWNOUSWN—OOONOUS WIT 


tt M*QOOOCOTOOCOOCOCOCOCVOOOOOOOOO@MWMOMOMMmooc 


BO AB EC AB DO 00000 FORSSREC_WSLO:: | 
MOVL  -20(CCB), -80(CCB) : 1515 
50 AB 3¢ 0005 MOVZWL -44(CCB). RO : 1516 
B4 AB pe BB4 BE 00 0009 MOVAB @-20(CCBSCROJ, -76(CCB) Fane 


| 
| 
| 
| 
| 
| 
BEGIN 
| 
| 
| 
| 
| 
| 
| 
} 
| 
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; Routine Size: 16 bytes, Routine Base: _FORSCODE + 031F 


; 1470 1519 1 
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1°08) or z . 14-Sep-19 4 99°45:85 FORRTL. RCIFORRECPRO 882:1 ° (18) 

; iene 1520 1 GLOBAL ROUTINE FORSSREC_WSL1 ! Write List-directed ; 
; 147 1521 1 ! (Also FORSSREC_wSC9) ; 
> 1474 1 § 1 : JSB_REC1 NOVALOE = ; 
3 14675 1 1 ‘ 
; 1078 1524 1 S44 ; 
: Ee 4 : 5 } FUNCTIONAL DESCRIPTION: ; 
; 1479 1 : 1 } Write one List-directed record and initialize for the next ; 
; 1480 1528 1! FORSSREC_WSL1 writes one output buffer and then | ; 
; 1481 1529 1! initializes the output buffer and returns start and end+1 of user : 
; 148¢ 12 9 part of record buffer to be filled by caller. : 
: 1484 12 § 1 ! CALLING SEQUENCE: ; 
; 1485 15 1! : 
: 1486 1534 1! JSB FORSSREC_WSL1 () : 
: 1487 ++) ae ie . 
: 1488 1536 1 ! FORMAL PARAMETERS: ; 
: 1489 1537 1! ; 
: 1490 1538 1! NONE ; 
> 1491 1539 1! ; 
3 p< 1540 1 ! IMPLICIT INPUTS: : 
: 149 1541 1! ; ; 
3 1494 1306 1% CCB Pointer to current boa teat unit : 
: 1495 1543 1! LUBSW_R_MARGIN Line width set at OPEN time. : 
3: 1496 1544 1! LUBS$A_RBUF _ADR Address of record buffer allocated at OPEN : 
: 1497 1545 1! LUB$W_RBUF SIZE Buffer size : 
3 1498 1546 1! LUBSV_FIXEB If fixed length records : 
3 1499 1547 1! : 
; 1500 1548 1 ! IMPLICIT OUTPUTS: ; 
: 1501 1549 1! ‘ 
; 1502 1550 1! LUBSA_BUF _PTR Pointer to start of user part of record buffer 3 
; 13 132) ! LUBSA_BUF _END Pointer to end+l of user part of record buffer : 
; 1505 1383 1 ! ROUTINE VALUE: : 
: 1506 1554 1! : 
: 1507 1555 1 | NONE | 
; 1508 1556 1! ; 
3 1509 1557 1 ! SIDE EFFECTS: : 
; 1510 +>) a : 
3; 1511 lgoy 1 | Writes one RMS sequential record. ‘ 
; 1316 1560 1! SIGNAL_STOs FORS_ERRDURWRI on PUT error. : 
3; 151 1561 1 !-- : 
3: 1514 1306 1 : 
3; 1515 156 BEGIN : 
; 1218 1564 ° 
3; 151 1565 EXTERNAL REGISTER ‘ 
; 1518 1566 CCB : REF SFORSCCB_DECL; ‘ 
3; 1519 1567 ; 
: 1520 1568 '¢ : 
3 1521 1368 ! If fixed pengeh records, set LUBSA_BUF_END to the actual buffer end ; 
3 1256 1570 ' so that blank padding will be done. : 
3; 152 1571 le : 
3 1258 1376 : 
: 1525 157 IF .CCB CLUBSV_FIXED) : 
: 1526 1574 . 
; 1350 1322 CCB CLUBSA_BUF_END) = .CCB CLUBSA_RBUF_ADR] + .CCB CLUBSW_RBUF _SIZE); : 


FORSSREC PROC 
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1 
1 
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1 
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1 
1 
1 
1 
1 
1 
1 
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OA 


34 bytes, 


1591 


1 


1ecSeprt age 99:33:83 Hoa tu'SRedronrece 
4 


| Call FORSSREC_WSF1 to perform the record write. 


FORSSREC_WSF1 {); 


4 
return record buffer pointers to caller 


LUBSA_RBUF _ADR); 


CCB CLUBSA_BUF _PTR] = .CC 
= .C LUBS$A_RBUF —ADR 


CCB ELUBSA BUF ~END + .CCB CLUBSW_R_MARGIN; 


ND; ! END OF ROUTINE 
FD AB 02 £1 00000 FORSSREC_WSL1 
#2, -3(CCB), 1$ 
50 D2 AB 3C 00005 MOVZWL -46(CCB), RO 
B4 AB EC 8B40 9 00009 MOVAB a@=20(CCBSCROJ, -76(CCB) 
FCEO 30 OOOOF 1$: BSBW FORSSREC_WSF1 
BO AB EC AB b0 00012 MOVL =20(CCB)> -80(CCB) 
50 D4 AB 3C 00017 MOVZWL =44(CCB). RO 
BG AB EC BB40 9E€ 0001B MOVAB. @-20(CCB)CROJ, -76(CCB) 
05 00021 RSB 


Routine Base: _FORSCODE + 032F 


RO. B82; 31 
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REC_PROC 


NOR. DHOOM TMNOR- DRO MIM TNOR. DKHOK— CUM TMNOR DHOOM MUM TNOR. DOOK— UM TNO DOO 
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: Routine Size: 


REC_PROC 
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oC we 


ORSS 
1 
0 


18 


et ts 2a) —) 9 bn ss ss  _ SS 


1621 


kk kk kd a 
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PAA AAOOSMMAMNNVIINIT 
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60 bytes, 


1668 1 


Record processing level of abstraction 


THEN 
CCB CLUBSA_BUF _END) 


CCB CLUBSA_BUF_ENDJ 

this is actually a 

cr vegecentrot . 

column 

IF NOT Fite CISB$B_STTM_ 

coe LUBSV_F TNJ 

CHSWCHAR_A 

RETURN; 

END; 


write an extra leadin 
s makes the Namelist inquire ('?') 


H 11 

16-Sep-1984 
1o=gee=138e 99:98:82 
= .CCB CLUBSA_RBUF_ADRI + 
= .CCB CLUBSA_RBUF_ADRI + 


AX-11 Bliss-32 V4.0 
FORRTL.SRC FORRECPRO. yf 2;1 
-CCB CLUBSW_RBUF _SIZEJ 

-CCB CLUBSW_R_MARGINI; 

READ statement and if we are using FORTRAN 


space into the record. 
eature display items starting 


TYPE] AND ! low bit 0 if READ 


A (4C' ", CCB CLUBSA_BUF _PTRI); 


! END OF ROUTINE 


D2 AB BS 00000 FORSSREC_WSNO:: 
TSTw | -46(CCB) 
0B 12 00003 NEG 1s, 
7E 42 8F 9A 00005 MOV ZBL 
000000006 00 01 FB 00009 CALLS "EORESSIGNAL STO 
BO AB EC AB DO 90010 1$ MOVL ae tay? (ctB) 
FD AB 0 F 0001 BBC 
50 D2 AB 3C OOO1A MOVZWL MATT 4 
04 11 Ooi BRB 3$ 
50 D4 =soAB 3¢ 00 33 MOVZWL =44(CCB), RO 
B4 AB C BB40 ; 90 4 3$ MOVAB. a-20(CCBSCROJ, -76(CCB) 
0c FF71 CB €8 OOO2A BLBS -143(CCB), 4$ 
AO AB 95 0002F TSTB = - 96 (CCB) 
07 18 00032 BGEQ $ 
BO 8B 20 90 00034 MOVB 32, a@-80(CCB) 
BO AB D6 00038 INCL =B0(CCB) 
05 00038 4$ RSB 


Routine Base: 


_FORSCODE + 0351 


SP See Se Ge Se Be Be Se Se Se Be Be Se Be Be 
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ee , "~ 1a-Sep-19 4 99:45:95 FORRTL.SRCIFORRECPRO.B 2;1 


: 1623 1668 1 GLOBAL ROUTINE FORSSREC_WSN1 ! Write NAMELIST 
> 1624 1670 1 : JSB_REC1 NOVALUE = 

> 1625 1671 1 

; 16 8 1026 1 !44 

; 19 5 1907 } } FUNCTIONAL DESCRIPTION: 

>; 1629 1675 1! Write one NAMELIST record and initialize for the next. 
; 1650 1976 1! FORSSREC_WSN1 writes one output buffer and then 

; 1631 1677 1! initializes the output buffer and returns start and end+1 of user 
3 Mb § 1928 | } part of record buffer to be filled by caller. 

; 16 1989 1 ! CALLING SEQUENCE: 

; 1635 1681 1! 

; 1636 1956 77 JSB FORSSREC_WSN1 () 

; 1637 198 1! 

; ts 4 1684 1 ! FORMAL PARAMETERS: 

; 1639 1685 1! 

; 1640 1o58 1 | NONE 

; 1641 1687 1! 

; 1oe6 1688 1 ! IMPLICIT INPUTS: 

3; 164 1689 1! 

: 16446 1690 1! ccB Pointer to current logical unit 
>; 1645 1691 1! LUBSA_RBUF _ADR Address of buffer 

: 1646 1e26 1! LUBSW_RBUF SIZE Size of buffer 

3 1647 1693 1! LUBSW_R_MARGIN Variable record Line width 

; 1648 1694 1! LUBSV_FIXED If fixed length records 

> 1649 1695 1! 

; 1650 1696 1 ! IMPLICIT OUTPUTS: 

; 1651 1697 1! 

; 1652 1698 1! LUBSA_BUF _PTR Pointer to start of user part of record buffer 
; 1Se7 1993 : LUB$A_BUF — END Pointer to end+1 of user part of record buffer 
3; 1655 1701 1 ! ROUTINE VALUE: 

3; 1656 HAS 1! 

3; 1657 1703 1! NONE 

: 1658 1704 1! 

:; 1659 1705 1 ! SIDE EFFECTS: 

: 1660 1706 1! 

: 1661 1707 1! Writes one RMS sequential record. 

; 1066 1708 1! SIGNAL_STOs FORS$_ERRDURWRI on PUT error. 

: 166 1709 1 !-- 

3; 1664 1710 1 

3; 1665 1711 BEGIN 

3 1998 Har 

3; 166 171 EXTERNAL REGISTER 

; 1668 1714 CCB : REF SFORSCCB_DECL; 

3 1662 1715 

; 1670 1716 

; 1671 1717 '+ 

g 1o7¢ 1718 ! Call FORSSREC_WSF1 to perform the record write. 

3; 167 1719 !e 

3 1676 1720 

: 1675 1721 FORSSREC_WSF1 (); 

: 1676 17 ; 

3: 167 17 '¢ 

; 1678 1724 ' Call FORSSREC_WSNO to set up for next record 

: 1679 1725 !e 


PFREC. PROC Record processing level of abstraction 1b-be 300° 138% 99: $8: $3 ereat ete 3; 


FOR 
1-031 -Sep-1 FORR 


3 3 17 § 

; 1 1 17 FORSSREC_WSNO (); 

: 16 § : 17 § RETURN; 

: 1 f 1730 END; ' END OF ROUTINE 


FC91 30 00000 FORSSREC WSN1:: 
SBW FO 
BF 11 00003 BRB FO 
; Routine Size: $ bytes, Routine Base: _FORSCODE + 038D 


; 1685 1731 


1 


K 11 | 
SREC_PROC R d cessing level of abstractio 16-Sep-1984 42:27 AX-11 Bliss-32 V4.0-74 Page 47. 
gyrec. pact soho Sty apes da 1273604382 99:95:35 HASaa tT sResroneecPRo.B 42:1 Mat) 


3; 1687 17 ¢ 1 GLOBAL ROUTINE FORSSREC_RMF1 ! DECODE entry point for next record 

3; 1 1 1 ! also called as FORSSREC_WMF1 

: 1 1734 (1 : JSB_REC1 NOVALUE = 

; 1690 1735 1 

3; 1691 17 § 1 44 

3 1996 iy : FUNCTIONAL DESCRIPTION: 

; 1694 17 § 1! Since only one “‘record’’ is allowed per ENCODE or DECODE statement, 

: 1922 ioe : eny request for ‘‘get next record’’ is an error. 

3 4 | 
3 1899 17g 1 ! CALLING SEQUENCE: 

3; 1698 174 1! 
; 1699 1744 1! JSB FORSSREC_RMF1 () | 
; 1700 1745 1! 

; 1701 ioe 1 ! FORMAL PARAMETERS: 
3 1706 1747 1! 

: 170 1748 1! NONE 
3: 1704 1749 1! 
; 1705 1750 1 ! ROUTINE VALUE: | 
3: 1706 1751 1! 

3; 1707 1736 1! NONE 

3; 1708 1735 9% 

3 1709 1754 1! SIDE EFFECTS: 

: 1710 1755 13 | 
: 1711 1756 1! SIGNAL_STOPs FORS_TOOMANREC always. 

; ar 1757 1 !-- 
3 171 1758 #1 
3: 1714 1759 #1 FORSSSIGNAL_STO (FORSK_TOOMANREC); 


1B DD 00000 FORSSREC_RMF1:: 
PUSHL 


#27 
000000006 00 01 FB 00002 CALLS #1, FORSSSIGNAL_STO : 
95 00009 RSB 


Routine Size: 10 bytes, Routine Base: _FORSCODE + 0392 


; 1715 1760 1 


} 
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oe ia : . 127808 138e 93:93:43 Gants sae ironetchgo oS2:1 9022). 
; 1717 1761 1 GLOBAL ROUTINE FORSSREC_WMF9 ! ENCODE wrap-up ; 
; 171 1762 1 : JSB_LREC9 NOVALUE = ° 
; 171 1765 1 ; 
: 1720 1764 1 !+4 ‘ 
: 1721 1765 1 ! FUNCTIONAL DESCRIPTION: : 
3; 17 ¢ 1798 1! : 
3 17 1767 3! Termination call for ENCODE. ‘ 
3 i 2 1708 ! Blank pad the end of the users buffer. ° 
; : | ° 
: 17 6 1776 1 ' FORMAL PARAMETERS: | : 
; 17 1771 1 ! CALLING SEQUENCE: : 
3; 17 8 1778 1} . 
3 17, 1775 1! JSB FORSSREC_WMF9O () | ‘ 
3 17 1774 1! ; 
3 1731 1775 1! : 
; 17 g 1776 1! NONE : 
: 17 1777 1! ‘ 
3 17 1778 1 ! IMPLICIT INPUTS: . 
; 1735 1779 1! : 
: 1736 1780 1! CCB Adr. of current LUB/ISB/RAB ‘ 
3 1737 ife) 1 3 LUBSA_BUF _PTR Pointer to end+1 of user data in buffer ‘ 
3; 1738 ree 1} LUBSA_BUF _END Pointer to end+1 of buffer : 
: 1739 1785 1! ‘ 
3; 1740 1784 1°! IMPLICIT OUTPUTS: : 
> 1741 1785 1! : 
: 1748 1786 1 | ROUTINE VALUE: | : 
3; 174 1787 1! ‘ 
; 1744 1788 1! NONE | : 
: 1745 1789 1! ‘ 
3 1746 1790 1 ! SIDE EFFECTS: : 
3 1747 1791 1! : 
: 1748 176 1 $ NONE ° 
> 1749 1793 1 i= | : 
; 1750 1794 1 ‘ 
> 1751 1795 BEGIN | : 
3 1736 1796 : 
3; 175 1797 EXTERNAL REGISTER ° 
3; 1754 1798 2 CCB : REF SFORSCCB_DECL; ¢ 
; 1755 1799 ° 
: 1756 1800 ‘+ : s ° 
3 1757 1801 ' Fill rest of buffer supplied by user if necessary (with spaces). . 
: 1735 1808 £ ; 
5 1760 1308 IF .CCB CLUBSA_BUF_PTR] LSSA .CCB CLUBSA_BUF_END] THEN FILL_BUF (2%C" '); : 
; 176¢ 1806 RETURN; | : 
3; 176 1807 1 END; | . 
| : 
B4 AB BO AB D1 00000 FORSSREC_WMF9: : ; 
CMPL ~B80(CCB), -76(CCB) > 1804 | : 
7 1€ 00005 BGEQU 1 ; | : 
0 dD 00007 PUSHL #32 : : 
0000v CF 1 FB 00009 CALLS) #1, FILL_BUF : : 

| 


7} 


M11 
ye gigs Segment detec nti Se-Roneses eshte 1e=88-198e 92:93:85 HRbantu *SReSFoRRe PRO. 882; Pow 235 
05 OOO0E 1$: RSB : 1807 
; Routine Size: 15 bytes, Routine Base: _FORSCODE + 039¢ 


; 1764 1808 1 
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1-031 / : 1e=Sep= 1986 12:39:89 ERORRTL’SRESFORRECPRO. 882: 1 9° (235 

; 1766 1809 1 GLOBAL ROUTINE FORSSREC_WIFO ! Write Internal ate Formatted - Initialize ° 
; 176 1810 1 : JSB_RECO NOVALUE = ! (Also FORSSREC_RIFO) : 
> 1768 1811 1 . 
$ 1092 1 \§ 1 f+ | ; 
3 ery af : ; FUNCTIONAL DESCRIPTION: ; 
; irre 1313 ' Initialize the LUB for an internal file read or write. : 
3 1774 1817 1 ! CALLING SEQUENCE: : 
; 1775 1 18 1 } : 
; 1776 1819 1! JSB FORSSREC_WIFO () : 
; 1777 3 01! | : 
; 1778 1821 1! : 
; 1779 18 ¢ 1! IMPLICIT INPUTS: ‘ 
; 1780 18 1; ¢ 
; 1781 1824 1! ccB Adr. of current LUB/ISB/RAB ‘ 
3 1786 1825 1! LUBSA_BUF _PTR Address of the descriptor of the internal | : 
3; 178 1826 1! file, put there by FORS$IO_BEG. The only ‘ 
> 1784 ieee 1: allowed descriptor t ee are DSCSK_DTYPE_T ; 
3 1785 1828 1! and either DSCS$K_CLASS_S or DSCS$K_CLASS_A. : 
; 1786 Sep 1} ‘ 
3 1787 1830 1 ! IMPLICIT OUTPUTS: : 
: 1788 1831 1! | ; 
3; 1789 1836 1! LUBSA_BUF _PTR Pointer to the first character in the : 
; 1790 18335 1! internal file. ‘ 
3; 1791 1834 1! LUBSA_BUF _END Pointer to the last+1 character in the ‘ 
; 1738 1835 1! current internal file record. ; | ‘ 
3; 179 1836 1! LUBSW_RBUF SIZE Length of one internal file ‘'record’’. : 
3 1794 1837 1! ISBSA_INTFILEND Pointer to the last+1 character of the : 
; 1795 1838 1! internal file. ‘ 
; 1796 1839 1! ‘ 
; 1797 1840 1 | ROUTINE VALUE: | ; 
; 1798 1841 1! ‘ 
> 1799 1848 1! NONE : 
; 1800 1843 1! ‘ 
; 1801 1844 1 ! SIDE EFFECTS: ° 
: 1308 1845 1! ; : : 
: 180 1846 1! FORS_INVARGFOR if descriptor is not a character scalar or array. | : 
; 1804 1847 1 !-- ‘ 
; 1805 1848 1 : 
3 1806 1849 BEGIN : 
; 1807 1850 ‘ 
; 1808 1851 EXTERNAL REGISTER : 
; 1809 1326 CCB : REF SFORSCCB_DECL; ° 
3; 1810 185 ‘ 
3; 1811 1854 LOCAL . : ° 
; 4 1855 DSC : REF BLOCK C, BYTE); ! Internal file descriptor | : 
3; 181 1938 ‘ 
3 1814 185 te : ‘ 
; 1815 1938 ! Fetch the descriptor and verify that it is of the proper class ‘ 
: 1316 185 ! and datatype. ‘ 
; 181 1860 i- | : 
; 1818 1861 | . 
3 2 1306 DSC = .CCB CLUBSA_BUF_PTRI; : 
> 1821 1864 IF (.DSC_COSC$B_DTYPE] NEQU DSC$K_DTYPE_T OR | : 
3 1822 1865 ((.DSC EDSCSB. CLASS) NEQU DSCSK_CLASS_S) AND (.DSC CDSCS$B_CLASS] NEQU DSC$K_CLASS_A))) : 


ee EEO 
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52 DD 00000 FORSSREC WIFO:: 
PUSHL Re 
52 BO AB D0 00002 MOVL -8 
OE 02 Ad 91 00006 CMPB 2( 
OC 12 OOO0A BNEQ 1$ 
01 03 A2 91 0000C CMPB 3( 
OF 13 00010 BEQL ge 
04 03 A2 91 00012 CMPB ( 
09 13 00016 BEQL es 
30 DD 00018 1$: PUSHL #4 
000000006 00 01 FB QOOIA CALLS #1 
BO AB 04 A2 00 00021 2$: MOVL 4( 
D2 AB 6 0 00026 MOVW (D 
50 6 C 88 A MOVZWL (D 
B4 AB 04 B24 E 4 MOVAB 4 
01 03 As 91 it CMPB ( 
07 12 00037 BNEQ $ 
98 AB B4 Ag DO 00039 MOVL of 
07 11 000 BRB 4% 
98 AB 04 A2 OC A2 C1 00040 3$: ADDL3 = 12 
04 BA 0047 4$: POPR a 

5 00049 RSB 


; Routine Size: 74 bytes, Routine Base: _FORSCODE + O3AB 


; 1848 1891 1 


: 1823 1866 THEN 

: 1B24 186 FORSSSIGNAL_STO (FORSK_INVARGFOR); 

: 1R5e 189 r 

18 é 1871 t Set up the addresses in the LUB. 

: is 0 1838 CCB CLUBSA_BUF_PTR] = .DSC COSC$A POINTER); 

> 1831 1874 CCB CLUBSW-RBUF SIZE] = zdSC DSCSW_LENGTH); 

; 1832 1875 CCB CLUBSA~BUF_ENDJ = .DSC COSCSA_POINTER] + .DSC CDSCSW_ 
1832 1899 ts 

; i838 1836 i Calculate the end of the internal file. If the descri 
3; 1836 1879 i scalar, then it is the same as LUBSA_BUF_END. Otherwi 
3: 1837 1880 ! is the end of the array. 

1839 1882 i. 

: 1840 1888 IF .DSC CDSC$B_CLASS] EQL DSC$K_CLASS_S 

; 1842 1885 : euseeee CISBSA_INTFILEND] = .CCB CLUBSA_BUF_END] 

> 1844 1887 2 CCB CISBSA_INTFILEND] = .DSC COSCSA_POINTER] + .DSC 
> 1845 1888 2 

3: 1846 1889 2 RETURN; 

> 1847 1890 1 END; 


AX-11 B 


li 184; -32 v4.0 74s 
FORRTL.SRCJFORRE tPRO. B32;1 


LENGTH); 


ptor is a 
se, it 


CDSC$L_ARSIZE); 


rae fl 


) 


_— wh 


‘oO 


PRORIARIAIRIAIAIRIAIAIAIAIAIAIIAIAIAIAL oO 


i ROUTINE VALUE: 
NONE 
i SIDE EFFECTS: 
i FORS_ENDDURREA if the ‘‘next'' record is past the end of the internal 


file on a READ. 
FORS_TOOMANREC if the ‘'next'’ record is past the end of the internal 


12 | 
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1-031 7 132808= 138. 99595:%5 LPORRTL~S CTF ORRECPRO.B 231 (24) | 
1850 3 GLOBAL ROUTING FORSSREC_WIF1 ' Write Internal File Formatted = Next record | 
132) + : JSBLREC1 NOVALUE = ! (Also FORSSREC_RIF1) 
1858 95 le¢ 
182e 38 FUNCTIONAL DESCRIPTION: 
1856 98 1! Fill remainder of record with blanks if WRITE. 
tt 4 Advance the LUB pointers to the next internal file ‘'record”’. | 
1859 O11 | CALLING SEQUENCE: | 
1961 08 JSB FORSSREC_WIF1 () 
1868 05 : 
+e) $6 : IMPLICIT INPUTS: | 
1866 08 1! CCB Adr. of current LUB/ISB/RAB | 
1867 09 : LUBSA_BUF _PTR Pointer to current character in the 
1868 10 : current record. 
9 11 LUBSA_BUF _END Pointer to the last+1 character in the 
0 ¢ ; current record. 
1 : LUB$W_RBUF SIZE Size of one record. 
; 14 ' ISBSA_INTFILEND Pointer to last+1 character of the 
i Z internal file. 
> v7 i IMPLICIT OUTPUTS: 
7 19 : LUBSA_BUF _PTR Set to first character in the next record. 
8 20 : LUBSA_BUF _END Set to the last+1 character of the next 
, $3 record. 
i 58 ji 
2 24 : 
3 25 : 
4 26 : 
5 27 : 
6 28 : 
7 44 : 
0 ' 
31 ' 
' 
$ ii 
4 
5 
6 


DOODODOOOOOOODOOOOODOOOOOODOODOOOOOODOODOOOOVOODOOOOOOOOOOOMO@OcoDCDCD CD 
FP et et et ek et ek ted nh oh eh ah teed eed ad ad od ed 


ee 
PROPOPOPONMONONUPONOPONONONINDYD 4 9 tt 9 9 9 9 PP PP 48 BP Bh Bh BH SS SO OS 


Se Se Se Ge Be Be Ge Be Be Se Ge Ge Ge Ge Be Se Se BH Se Be Ge Se Se Se Ge Oe Oe Oe Ge FH Se FF Ss Se Oe Se Se Se Se Ge FH Se Se Se Se Se Ge See Ge Se Se Se Se asee ee 


9 

+ file on a WRITE. 

35 

+ BEGIN 

95 7 EXTERNAL REGISTER 

96 8 CCB : REF SFORSCCB_DECL; 

97 9 

98 0 '+ 
34 : If WRITE, fill remainder of current record with blanks. 
1901 : 
1306 4 IF .CCB CISBSB_STTM_TYPEJ ' True if WRITE 
Pst 5 THEN 
Hb 64 ‘3 IF .CCB CLUBSA_BUF_PTR} LSSA .CCB CLUBSA_BUF END) THEN FILL_BUF (2C* ‘); 


EEE eee —_ —_ —— rc 
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FORSSREC_PROC = R d i f i - - .U= 
{HARE FtOE core rocenntgLovet of shetrectton ESHA HN SNittdbeltelties «= lll 


Ww 
3338 
oon 


tek CLUBSA_BUF _END] GEQA .CCB CISBSA_INTFILENDJ 


IF .CCB CISBSB_STTM_TYPE] ! True if WRITE 


EL set ORSSSIGNAL_STO (FORSK_TOOMANREC) 
FORSSSIGNAL_STO (FORSK_ENDDURREA); 


14 
i _Update pointers. 


CCB 
CCB 
RETU 


LUB$A_BUF 


CCB ELUBSA-BUF or! PTR) ~ENDI; 
LUBSA_BUF END] + .CCB CLUBS$W_RBUF _SIZEJ; 


= .CCB CLUBSA_BUF _END]; 
LUBS BEG] = .CCB 
LLUBSA_ BUF -ENDI = .CCB 


WOOO OOOOOOOOOOOOOOOOOO 


SAAEAAPEAPAA AAAI II 
SOOWONAVES ANN "OO OONAUSWNO”O 


14 | 
} Check for the next record being outside the internal file. 
; 
2 
2 
2 
1 


Se ee Ge Se Fe Ge Se Se Se Se Se Se Se ee SHS Se Se Se ee See 
kt kk kk kd tt ts 
WOOODOODODOODOODOOOOOOOONOO0O0O00O 
i Batata aiutabeabababaabadaDababeaiaa ad 


POPIPOPONIPONPINID 2 SS SS OO SS 


OE FF71 CB €9 00000 FORSSREC_WIF1 
BLBC  --143(CCB), 1$ : 1944 
B4 OA BO AB 01 00005 CMPL  -80(CCB), -76(CCB) 1947 | 
07 1 OOO0A BGEQU' 1$ : 
20 DD 0000C PUSHL #32 ; 
0000v CF 01 FB OO00E CALLS #1, FILL_BUF : 
98 AB B4 AB D1 00013 1$: CMPL Pb (CCB)T But 04 (CCB) + 1953 
12 1F 00018 BLSSU 4$ : 
04 FF71 CB €9 OOOIA LBC © = 143(CCB), 2% + 1956 
1B DD 0001F PUSHL #27 : 1958 
02 11 00021 RB 3$ ; 
18 DD 000 : 2$: PUSHL #24 + 1960 
000000006 00 01 FB 00025 3$: CALLS #1, FORS$SIGNAL_STO ; 
BO AB B4 AB DO 0002 4$: MOVL  -76(CCB), -80(CTB) > 1966 
BC AB B4 AB DO 00031 MOVL -76(CCB), -68(CCB) : 1967 
50 D2 AB 3C 00036 MOVZWL -46(CCB), RO : 1968 
B4 AB 50 £6 0005A ADDL2 RO, -76(CCB) : | 
5 0003E RSB : 1970 
; Routine Size: 63 bytes, Routine Base: _FORSCODE + O03F5 


: 1929 1971 1 | 


OD: 


Read record into buffer ysing RMS and check for erros 
If end-of-file, SIGNAL_STOP FORS_ENDDURREA (24="END-OF -F 
i big for fecord buffer. +AgNA STOP FOR 


ING READ") 
L IN ° 
="ERROR DURING R 


record too 
errors, SIGNA 


STO FORS_ERRDURRE 
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FORSSREC_PROC Record processing level of abstraction 1b-se =-1984 00:42:27 Ax-11 Bliss-32 V 
1-031 *~ . ’ 14-Sep-19 4 99°43:49 FORRTL. SRCIFORRE 
; 1931 1978 1 GLOBAL ROUTINE FORSSREC_RKFO ! Read keyed formatted 
3; 19 é 1975 1 : JSB_RECO NOVALUE = 
; 19 1974 1 
: 1934 1975 1 !44 
; 1935 1278 1 ! FUNCTIONAL DESCRIPTION: 
; 1936 1977 1! 
3; 1937 1978 1! FORSSREC_RKFO reads the first record on a 
; 1938 1979 1! keyed read. 
; 1939 1980 1! Then return start and end+1 of user 
; 1940 1981 1! part of record to be processed as input. 
; 1941 1356 1! 
3 13¢8 19 1 ! CALLING SEQUENCE: 
: 194 1984 1! 
> 1944 1985 1! JSB FORSSREC_RKFO () 
3; 1945 1986 1! 
: 1946 1987 1 ! FORMAL PARAMETERS: 
3; 1947 1988 1! 
; 1948 1989 1! NONE 
3 1949 1990 1! 
; 1950 1991 1! IMPLICIT INPUTS: 
; 1951 Hb 44 1! 
3; 1952 1995 1! CcB Pointer to current logical unit 
; 1953 1994 1! LUBSW_RBUF _SIZE Size of record buffer allocated in OPEN. 
g 1338 1332 : LUBSA_RBUF _ADR Address of record buffer from OPEN. 
; 1956 1997 1 ! IMPLICIT OUTPUTS: 
: 1957 1998 1! 
; 1958 1999 1! LUBSA_BUF _PTR points to first char of user part of 
: 1959 2000 1! record buffer. 
; 1960 2001 1! LUBSA_BUF _END points to end+! of user part of 
3; 1961 2002 1! record buffer. 
3: 1962 2003 1! RAB$SW_RSZ set to read record length, or ZERO 
3; 1963 2004 1! if error. 
3: 1964 2005 1! 
3; 1965 2006 1! RAB$B_RAC set to keyed access mode 
3: 1966 2007 1! 
3 1967 2008 1 ! ROUTINE VALUE: 
: 1968 2009 1! 
3: 1969 2010 1! NONE 
: 1970 2011 1! 
3: 1971 $oig 1 ! SIDE EFFECTS: 
3 1376 2015 1! ; : 
3 197 2014 1! Reads speci tied record from file on this logical unit. 
3; 1974 015 1! SIGNAL_STOPs FORS_ERRDURREA (39="ERROR DURING READ") 
3; 1975 16 1! SIGNAL_STOPs FORS_INPRECTOO if record too big 
3 1976 017 1 !-- 
3; 1977 b18 1 
3; 1978 01 BEGIN 
3: 1979 8 0 
; 1980 1 EXTERNAL REGISTER 
3; 1981 0 § CCB : REF SFORSCCB_DECL; 
; 1386 0 
3; 19 4 
; ' 5 
3 7 
; 028 
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FORSSREC_PROC Record processing level of abstraction on30 -1984 AX-11 Bliss-32 V4.0-74 
pet t “ ° ® 19-308 1382 99: 48: $4 Yer aR tsar troRRe cPno 68251 
; 1988 029 != 
; 1989 030 
3 Hb 4! 8 1 CCB CRAB$B_RAC] = RABSC_KEY; 
3 1338 0 ¢ IF NOT SGET (RAB = .CCB) THEN GET_ERROR (); 
; 199 034 
: 1994 8 5 ‘+ 
; 1995 6 i Return start and end+1 address of record just read 
; 1996 037 in 
3; 1997 038 
; 1998 039 CCB CLUBSA_BUF_PTR] = .CCB CRABSL_RBFI; 
; 1999 soee ccB LUBSA_ BUF-END) = .CCB CRABSL_RBFJ + .CCB CRAB$W_RSZ); 
; 2000 041 RETURN; 
; 2001 2042 1 END; ! End of FORSSREC_RKFO. 
1E AB 01 90 00000 FORSSREC_RKFO:: 
fove #1, 30(CCB) 
5B DD 00004 PUSHL CcB 
00000000G 00 01 FB 00006 CALLS #1, SYSS$GET 
05 50 €8 0000D BLBS RO, 1 
0000vV CF 00 FB 00010 CALLS #0, eH ERROR 
BO AB 28 = =6AB 4 00015 1$: MOVL 40(CCB), -80(CCB) 
50 22 =AB 3C OOO1A MOVZWL 34(CCB). RO 
B4 AB 28 BB40 9E OOOTE MOV 340 (CBS ERO), -76(CCB) 
05 00024 RSB 


; Routine Size: 37 bytes, Routine Base: _FORSCODE + 0434 


; 2002 2043 1 
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pe 1 =300-138? 99:45:96 FORRTL.SRCIFORRECPRO.B 2:1 age 385 | 
; 1 GLOBAL ROUTINE FORSSREC_WxF9 ! | ’ 
ied ] eh + FORE RSSneC YK Rewrite indexed formatted and unformatted 
; B06 ] : JSB_REC9 NOVALOE = : 
: 2008 1 144 ; 
: O98 : } FUNCTIONAL DESCRIPTION: : 
3 O11 | Rewrite the current record on an indexed file. ; 
; O18 ' CALLING SEQUENCE: | ; 
2 O15 JSB FORSSREC_WXF9 () ; 
; O17 i FORMAL PARAMETERS: | : 
i 018 1 i it | ; 
; 2021 206] 1 i IMPLICIT INPUTS: | ; 
: $053 2 1: CCB Pointer to current logical unit | : 
; 2024 2 1! LUBSW_RBUF _SIZE Size (bytes) allocated for record buffer at OPEN. ; 
3; 2025 2 1! LUBSA_RBUF_A Address of record buffer from OPEN : 
3 $059 § ' LUBS$A_BUF _END oints to Lest cher inserted into buffer | i 
3 ! v 4 ; 
; 2028 2 1! ISBSV_SNGL_ELEM Flag indicating that RAB$W_RSZ and F 
: $68 3 : RABSL_RBF have been set up at UDF level : 
; 031 207 IMPLICIT OUTPUTS: | 
$035 $078 1 i NONE | : 
: 2034 2074 1! s 
: Spee Spee ' ROUTINE VALUE: : 
: 2037 2077 1 | NONE | : 
; 2038 2078 1! 5 
; th 344 : : SIDE EFFECTS: : 
2061 2081 1 | NONE | ; 
; 2042 it) 1 !e- 3 
3; 2043 2083 1 3 
3 2044 2084 2 BEGIN 3 
3; 2045 2085 § 3 
3: 2046 2086 EXTERNAL REGISTER $ 
; 2048 +t CCB : REF SFORSCCB_DECL; ° 
: 2049 089 '¢ ; 
3 sey 090 ! If this is a buffered transfer (ISBSV_SNGL_ELEM = 0), then set up : 
: 2051 091 ! RAB$SW_RSZ and RABSL_RBF to point to the record buffer. Otherwise : 
; $026 $008 2 they Rave already been set up at UDF level to point to an element. : 
; 2084 2094 ; 
3 055 095 1F NOT .CCB CIS8$V_SNGL_ELEM) : 
> 2057 097 BEGIN : 
: 2058 098 3 
3: 2059 099 + 3 
; 2060 100 ! If fixed Length records (FLR), pad with trailing spaces or 
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FORRECPRO.B32; 1 (26) 


' nulls, depending on whether formatted or unformatted. Set 
} recordsize to actual length of record. 


IF .CCB CLUBSV_FIXEDJ 

THEN 
BEGIN | 
CCB CRABSW_RSZ] = .CCB CLUBSW_RBUF_SIZE]; |! Always set RSZ | 


a CLUBSA_BUF _PTR] LSSA .CCB CLUBSA_BUF_ENDJ | 
FILL_BUF ( 

IF .CCB CLUBSV_UNFORMAT] THEN 0 ELSE %C° ‘) 

END 


CCB CRABSW_RSZ] = .CCB CLUBSA_BUF_PTR] - .CCB CLUBSA_RBUF_ADR); | 
CCB RABSL_RBFJ = .CCB CLUBSA_RBUF_ADR); | 


, 


Mrorornononorerorerorrnreroror 
FSESSSS 
OOONAOUE NT 


Wy tet cert Pe PRN RP 
MEUM —OODONOULSWN oO 


14 
' Output buffer to RMS and check for errors 
If errors, signal them 


OOSCOCOCOCOCOCCOCOCOCoOooOO 


o 
cog 
nO 


NMoPoPoRoNororornononer 


IF NOT SUPDATE (RAB = .CCB) 
THEN 
BEGIN 
ate > CRABSL_STS] EQL RMS$_RSA DO 


; 2088 
¢ | 
$WAIT (RAB = .CCB); 
} 


SUPDATE (RAB = .CCB); 
END; 


Soo 
S33 
on 


IF NOT .CCB CRABSL_STS) 
FORSSSIGNAL_STO ( 
SELECTONEU -CCB CRABSL_STS) OF 
CRMS$_RNL, RMS$_CUR] : 
FORSK_NO_CURREC; 


CRMS$_CHG, RMS$_DUP) : | 
FORSK_INCKEYCHG; 


COTHERWISE) : 
,FORSK_REWRITERR; 


SSLESRELLS 


END; 
RETURN; 
END; 
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! END OF ROUTINE 
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FD 
0000v CF 
0 
8 
000000006 00 
000182DA 
000000006 00 
000000006 00 
000181A0 
00018484 
0001849C 
000184EC 
000000006 00 


1E 
04 
AB 


22 


_FORSCODE + 0459 


Routine Base: 


156 bytes, 
1 


2158 


; Routine Size: 


3; 2118 
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ROUTINE FILL BUF ( ' FILL rest of buffer with_arg 
HAR) i FILL character Cby-value] 
: CALL_COB NOVALUE = 


_—w 


oe 
a 


ae 
FUNCTIONAL DESCRIPTION: 


PAA 
VFWwn—Oo 


Fill rest of buffer with argument (space or null). 
This CALL entry point is provided for JSB rout ines 
to conditionally CALL which are not eine R 


SS 


' 

i 

i 

i 

i 

i 

i 

CALLING SEQUENCE: 

CALL FILL_BUF (fill_char.rbu.v) 
FORMAL PARAMETERS: 

fill -char.rbu.v Fill character | 
IMPLICIT INPUTS: | 
i | 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 
le 


ccB Adr. of current LUB/ISB/RAB 
LUBSA_BUF _PTR Pointer to end+1 of user data in buffer 
LUBSA_BUF _END Pointer to end+1 of buffer 


IMPLICIT OUTPUTS: 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


a — 5 > = = a ts on — > — as — 4» — os =) ss a ts a 9 


AAAI BBB EPP 


BEGIN 


EXTERNAL REGISTER 
CCB : REF SFORSCCB_DECL; 


CSF ILL (.FILL_CHAR, .CCB CLUBSA_BUF_END] - .CCB CLUBSA_BUF_PTRJ, .CCB CLUBSA_BUF _PTR]); 
END; ! End of FILL_BUF 
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| 
003C 00000 FILL BUF: | 


orp Save R2,R3,R4,R5 : 2159. 
50 B4 AB BO AB C3 00002 sual -80(CCBS, -76(CCB) : 2200 | 
50 04 AC 6E 00 2c 00008 MOVCS #0, (SP). FILL_CHAR, RO, @-80(CCB) : | 
BO 8B O00E ; 

04 0001 RET > 2202 | 
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3 p= 


FORRTL.SRCJFORRECPRO.B52;1 


; 2165 3 1 ROUTINE PUT_ERROR Here on error in $PUT 
3 166 4 1 : CALL_CCB NOVALUE = 

: 216 . ¥ 

3; 2168 $ 1 !e+ 

3 198 8 : } FUNCTIONAL DESCRIPTION: 

3; 2171 $8 1} Here on S$PUT errors, check for Record stream active error (RMS$_RSA) 
3 \7¢ 10 1! f this error, WAIT until not active and try $PUT again, 
3 217 ” ee This recovers from AST 1/0 which can occur out of the middle 
3 2176 \§ 7% of synchronous 1/0 at non-AST level. 

3 2175 1 1! Signal FORTRAN specific errors if ony 

3 176 1% ! If any other type of error, SIGNAL_STOP (FORS_ERRDURWRI). 
: 2178 1 1 ! CALLING SEQUENCE: 

: 2179 1 : 

; 2180 i ae JSB PUT_LERROR () 

: 2181 19 1! 

; 518s Q 1 ! FORMAL PARAMETERS: 

3 sis is -F 

3: 2184 ¢ 1! NONE 

3; 2185 2 1! 

3 $158 § 4 1! IMPLICIT INPUTS: 

: 2187 >. FF 

3 sige 226 (1! ccB Adr. of current LUB/ISB/RAB 

: 2189 der 1! 

3 $130 228 1 ! IMPLICIT OUTPUTS: 

3 2191 $§2 1! 

; $198 230 1 ! ROUTINE VALUE: 

3 219 $$, 1! 

3 Size $36 1! NONE 

3: 2195 2233 1! 

: 2196 2234 1 ! SIDE EFFECTS: 

; $132 + ee : ; 

3 2198 236 «1! $SWAITsS and then tries S$PUT again, until success or any error 
3; 2199 esr 61! except record streanm active. 

3; 2200 238 #1 !-- 

; $3 $26 BEGIN 

3 $08 ef 

3; 2204 stg EXTERNAL REGISTER 

3 $22 ai CCB : REF SFORSCCB_DECL; 

; $09 sie WHILE .CCB CRABSL_STS) EQL RMS$_RSA DO 

3 2208 46 ; EGIN 

3; 2209 4 $WAIT (RAB = .CCB); 

3; 2210 48 4 $PUT (RAB = .CCB) 

3 11 49 END; 

; $i¢ 50 

: 221 51 IF NOT .CCB CRABSL_STSJ 

3 22146 26 

: 316 37 FORSSSIGNAL_STO ( 

3: 2217 55 SELECTONEU .CCB CRABSL_STS) OF 

: 2218 2$ SET 

; 2219 5 

3; 2220 58 CRMS$_CHG, RMS$_DUP) : 

: 2221 59 FORSK_INCKEYCHG; 
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! End of PUT_ERROR 


3 $6 60 
3 eee 61 CRMS$ «eh : 
3 ¢ 86 FOR K_SPERECLOC; 
3 $ 64 COTHERWISE) : 
; 65 FORSK_ERRDURWRI; 
3 8 4] ); 
; 6 
3 0 68 RETURN; 
: 2231 69 1 END; 
0000 00000 es 
000182DA_ =s BFF 08 AB Di eat 1$ CMPL 
14 12 OOOOA NEQ 
5B DD 0000C PUSHL 
000000006 00 01 FB Bente CALLS 
5B 0D 0001 PUSHL 
000000006 00 01 FB 00017 CALLS 
E2 11 OOO1E aes 
30 08 AB €E8 00020 2$: BLBS 
50 08 AB DO 00024 MOVL 
0001849C 8F 50 D1 00028 CMPL 
09 13 0002F BEQL 
Q000184EC 8F 50 D1 00031 CMPL 
: 12 000 BNEQ 
2 DD 0003A 3$: PUSHL 
OF 11 0003C BRR 
000182AA BF 50 D1 Ht] 4$: CMPL 
% 12 0004 BNEQ 
4 DD 00047 PUSHL 
02 11 00049 BRB 
66 DD 00048 5$: PUSHL 
000000006 00 1 FB 0004D 6$: CALLS 
04 00054 7$: ET 


ave nothin 
al #99034 
B 

P SYSSWAIT 
. SYSSPUT 
CCB), 7$ 
CCB) 

RO, #99564 
4$ 

#50 

6$ 

RO, #98986 
5$ 

#52 

6$ 


#38 
#1, FORSSSIGNAL_STO 
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cos 4 —— aes aR TOP et og Pee 9 08) 
' i 


3 70 1 saad GET_ERROR ! Here on error on $GET 
5 2 q} } : CALL_CCB NOVALUE = 

; ig 1 tee 

; e } FUNCTIONAL DESCRIPTION: 

: § 78 1 i Here on S$GET errors, check for Record stream ect ive ocre (RMS$_RSA) 
; 2240 ao a If this error, WAIT until not active and try S$GET ogetn 
3: 2261 78 «1! This recovers from AST 1/0 which can occur out of the middle 
; 4 iy 23 ef i saggy 1/0 at non-AST Level. 

3; 224 80 1! ony other t type of error, SIGNAL STOP (FORS_ERRDURRED, FORS_ENDDURREA, 
; ee e } } = FORS_INPRECTOO) depending on RMS error codes. 

> 226 $ 1 i CALLING SEQUENCE: 

>: 224 86 1! 

3; 2248 cay JSB GET_ERROR () 

s 2249 Bg a = 

: 50 8 1 ! FORMAL PARAMETERS: 

3; 2251 88 1! 

3 26 89 1! NONE 

; 225 290 1! 

3: 2254 91 1°! IMPLICIT INPUTS: 

3: 2255 3 1! 

3; 2256 93 1! ccB Adr. of current LUB/ISB/RAB 
3; 2257 9% «1! 

3; 2258 95 1 ! IMPLICIT OUTPUTS: 

3; 2259 38 1! 

; 2260 97 1 ! ROUTINE VALUE: 

: 2261 298 1! 

3 $66 99 1! NONE 

3 $56 00 1! 

3: 2264 301 1 ! SIDE EFFECTS: 

3; 2265 Sang 1! 

; 2266 3 1! $WAITS and then tries $GET again, until success or any error 
3; 2267 06 1! except record streanm active. 

3; 2268 305 1 !-- 

3: 2269 2306 1 

3; 2270 tt 2 BEGIN 

3: 2e71 308 2 

s % $345 EXTERNAL REGISTER 

3 $7 319 CCB : REF SFORSCCB_DECL; 

: sre 12 WHILE .CCB CRABSL_STS) EQL RMS$_RSA DO 

; $78 1 BEGIN 

3: 2e7 14 $WAIT (RAB = .CCB); 

: 78 315 4 $GET (RAB = .CCB) 

3: 2279 316 END; 

3; 2280 317 

3 it $15 IF NOT .CCB CRABSL_STS) 

; $8 320 FORSSSIGNAL_STO ( 

> 2284 353 

3 2285 3 g SELECTONEU .CCB CRABSL_STS] OF 

3 387 324 SET 

> 2288 3 s CRMS$_EOF) : 

3; 2289 326 FORSK ~ENDDURREA; 
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14-Sep-19 
CRMS$_RTB] : 
FORSK_INPRECTOO; 


CRMS$ KEY. RMS$_KRF, RMS$_KSZ] : 
FORSK_INVKEYSPE; 


CRMS$_RNFJ : 
FORSK_ATTACCNON; 
CRMS$_RLK] : 
FORSK_SPERECLOC; 
COTHERWISE) : 
FORSK_ERRDURREA; 
RETURN; 
END; ! End of GET_ERROR 
0000 00000 GET_ERROR: 
WORD Save pork ing 
000182DA BF 08 AB D1 00002 1$ CMPL = B(CCB), #99034 
14 12 OOO0A NEQ 2$ 
5B DD O0000C PUSHL CCB 
000000006 00 01 FB 00008 CALLS #1, SYSS$WAIT 
5B DD 0001 PUSHL CCB 
000000006 00 01 FB 00017 CALLS #1, SYSSGET 
E2 11 OOO1E BRB 1$ 
60 08 AB €8 00020 2$ BLBS  8(CCB), 10$ 
50 08 AB DO 00024 MOVL  8(CCB). RO 
0001827A = BF 50 01 00028 CMPL RO, #98938 
04 12 Beo8, BNEQ 3$ 
18 DD 00031 PUSHL #24 
48 11 00033 BRB 9$ 
000181A8 = 8F 50 D1 00035 3$ CMPL RO, #98728 
04 12 0005¢ BNEO  4$ 
16 0D 000 ; PUSHL #22 
3B 11 0004 BRB 9$ 
00018594 8F 5 D4 0048 4$ CMPL RO. #99732 
12 1 4 BEQL = 5 
0001859C =F 50 01 0048 CMPL RO, #99740 
09 13 0005 BEQL 5$ 
000185A4 8F 50 07 0094 CMPL RO, #99748 
04 12 00058 BNEQ  6$ 
1 DD 09D 5$ PUSHL #49 
1¢ (11 F BRB 9$ 
00018282 = 8F 50 01 00061 6$ CMPL RO, #98994 
04 12 0068 BNEQ 7$ 
4 DD O6A PUSHL #36 
F 11 0006C BRB 9 
000182AA 0 D1 O06 7$ CMPL RO, #98986 
04 12 000 BNEG  8$ 
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PSECT SUMMARY 


Attributes 


EXE, 


Bytes 


SHR, LCL, REL, CON, PIC,ALIGN(2) 


RD , 


1504 NOVEC,NOWRT, 


_FORSCODE 
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FORSSREC_PROC Record processing level of abstraction 16-Sep-1984 90:46:47 VAX=11 Bliss-32 V4.0-742 Page 66 
1-031 14-Sep-1984 12:32:39 CFORRTL.SRCJFORRECPRO.B32;1 (29) | 
; Library Statistics 
I oh a Fee i Symbols -------- Pages Processing | 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: Cs¥SLiBISTARLET 32:1 9776 34 0 581 00:01.0 
; ~$255$DUA28: : BEORRTL O84 {EORL 18 -L 38:1 711 197 27 52 00:00.6 
3 =$255$DUA28:CFORRTL.OBJIRTLLIS.L32; 1 36 0 0 8 00:00.1 
; COMMAND QUALIFIERS 


precession tat atthe MSRC$:F ORRECPRO/UPDATE=(ENHS$: FORRECPRO 


Size: 1504 code + 0 data bytes 
Run Time: 00:37.7 

Elapsed Time: 01:20.0 

Lines/CPU Min: 3738 
Lexemes/CPU-Min: 19055 

panety Used: 142 pages 

Compilation Complete 
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